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Author's  Introduction 


This  book  will  give  you  and  your  computer  power — the  power  to  rep¬ 
licate  reality  in  a  quite  uncanny  way.  I’ve  included  a  wide  range  of  pro¬ 
grams  that  allow  you  to  experience  this  power  in  action — from  a 
program  that  simulates  microbes  fighting  for  the  right  to  survive  in 
a  closed  environment,  to  one  that  puts  you  in  the  cockpit  of  a  partic¬ 
ularly  temperamental  plane. 

There  is  also  more  to  this  book  than  the  ready-to-run  programs. 
You’ll  discover  how  easy  it  is  to  analyze  real-life  situations  so  that 
you  can  create  your  own  computer  simulations,  for  both  entertain¬ 
ment  and  instruction. 

You  now  have  the  power.  Use  it 


Tim  Hartnell 
London, 1986 


Getting  the  Programs 
Running  on  Your  System 

I  wrote  the  programs  in  this  book  on  an  IBM  PC.  Since  you  may 
own  or  use  different  microcomputers.  I’ve  included  the  full  BASIC 
program  listings  for  the  three  most  popular  microcomputers:  the  Ap¬ 
ple  lie.  Commodore  64,  and  the  IBM  PC.  BASIC  listings  that  will  run 
on  IBM  PCs,  XTs,  and  compatibles  without  modification  are  pre¬ 
sented  throughout  the  chapters.  Program  listings  specifically  for  the 
Apple  lie  series  and  the  Commodore  64*  are  included  in  the  appendix 
at  the  end  of  the  book. 

I’ve  written  the  programs  in  a  subset  of  BASIC  that  will  run  on 
most  microcomputers  with  only  minimal  changes.  However,  if  you 
don’t  own  an  Apple  lie  or  lie,  Commodore  64,  or  IBM  PC,  some  of  the 
BASIC  statements  used  in  the  programs  may  have  to  be  changed 
slightly  to  run  on  your  system.  I’ve  included  the  following  notes  so 
that  if  you  do  have  to  adapt  the  programs  you’ll  be  able  to  get  them 
running  as  quickly  as  possible. 

Screen  Width 

I’ve  assumed  that  you  have  access  to  the  READ  and  DATA  com¬ 
mands,  and  that  your  screen  is  about  40  characters  wide.  If  your  com¬ 
puter’s  screen  is  not  quite  that  wide,  you  may  have  to  adapt  the 
program  output  by  adjusting  the  PRINT  statements. 

Random  Wumijers 

Some  of  the  programs  need  random  numbers  to  operate.  When 
I  want  a  random  number  between  one  and  zero,  I  use  the  command 
A  =  RND(l).  If  I  need  random  integers  in  the  range  between  1  and  10, 
I  use  A  =  INT(RND(1)  *  10)  +  1.  If  your  system  can’t  use  this  state¬ 
ment,  you’ll  have  to  substitute  the  form  of  the  RND  command  that 
will  run  on  your  computer.  Look  up  RND  or  "random  numbers”  in 
your  system’s  BASIC  manual. 
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*C64  users  see  note  on  p.  171. 


My  computer’s  BASIC  generates  the  same  sequence  of  random 
numbers  each  time  a  program  is  run.  In  order  to  get  a  genuinely  ran¬ 
dom  set  of  numbers,  I  have  to  seed  the  random  number  generator.  I’ve 
used  the  rather  terrifying-looking  statement  RANDOMIZE  VAL 
(RIGHT$(TIME$,2))  to  do  this.  If  your  random  number  generator  re¬ 
quires  a  seed  (again,  this  will  be  explained  in  your  BASIC  manual), 
replace  this  statement  with  your  system’s  equivalent  (or  leave  it  out 
altogether,  if  you  don’t  have  an  alternative). 

If  your  computer  doesn’t  use  the  BASIC  statement  DEFINT 
(often  used  in  the  line  after  RANDOMIZE  as  DEFINT  A-Z)  leave  that 
line  out  completely  as  well.  (See  line  490  in  the  LIFE  listing.) 

Capital  Letters 

Note  that  the  programs  expect  input  in  upper-case  letters.  If 
your  computer  can  use  lower-case  letters,  and  if  while  running  the 
program  nothing  happens  when  you  type  in  letter  commands,  check 
to  make  sure  that  you’re  typing  in  capital  letters. 

Input  Statements 

You  may  also  have  to  change  my  use  of  INKEY$  for  single  char¬ 
acter  input  If  your  computer  can’t  use  INKEY$,  change  these  state¬ 
ments  (throughout)  to  the  input  statement  that  works  on  your 
system.  Change  A$  =  INKEY$  to  either  INPUT  A$  or  GET  A$  (again, 
see  your  BASIC  manual).  The  program  should  run  without  further 
changes.  Use  CALL  KEY  when  working  in  TI  Extended  BASIC. 

Note  that  some  BASICs  (such  as  Atari  BASIC)  do  not  let  you  in¬ 
clude  a  string  within  an  INPUT  statement  (as  in  INPUT  “string”;  A$). 
Replace  this  with  PRINT  “string”  followed  by  a  separate  INPUT  state¬ 
ment 

READing  Arrays 

Some  BASICs  cannot  READ  array  values  directly,  as  in  READ 
A(7)  or  READ  A$(7).  You’ll  have  to  replace  these  statements  with  lines 
that  put  data  in  the  array  indirectly.  First  read  the  data  into  a  variable. 
The  appropriate  array  element  can  then  be  set  equal  to  the  variable, 
as  in  READ  X:A(7)  =  X  or  READ  X$:A$(7)  =  X$. 

Printing  the  Results 

Many  of  the  programs  “reprint”  the  screen  after  each  turn.  I’ve 
used  the  CLS  command  to  CLear  the  Screen.  If  your  system  doesn’t 
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use  CLS,  you’ll  have  to  replace  it  with  the  appropriate  command.  Use 
PRINT  “CLR”  on  Commodore  and  Atari  computers,  HOME  on  Apples, 
and  CALL  CLEAR  when  working  with  TI  Extended  BASIC. 

String-Handling 

String-handling  can  cause  a  few  problems,  so  I’ve  kept  it  to  a 
minimum.  If  your  computer  does  not  support  the  standard  LEFTS, 
MID$,  and  RIGHTS  string-handling  commands,  consult  your  BASIC 
manual  for  the  correct  replacements.  For  example,  the  standard 
MID$(A$(2,3))  can  be  replaced  with  SEG$(A$,2,3)  in  TI  Extended 
BASIC,  with  A$(2  TO  5)  on  Timex/Sinclair  computers,  and  with 
A$(2,5)  in  Atari  BASIC. 

Oelaif  Loops 

Many  of  the  programs  include  a  delay  loop  (usually  in  the  form 
FOR  1=1  TO  500:NEXT  I).  You  should  adjust  these  dummy  loops 
(which  are  usually  held  in  subroutines  at  the  end  of  programs)  so  that 
the  program’s  displays  of  instructions  and  the  progress  of  the  sim¬ 
ulation  are  clear  and  easy  to  follow.  See  line  550  in  the  SIMULTA¬ 
NEOUS  EQUATIONS  listing  for  an  example  of  how  this  works. 

Variables 

If  your  system  won’t  accept  variable  names  longer  than  two  let¬ 
ters,  enter  just  the  first  two  letters  (such  as  SC  for  SCORE).  If  it  will 
accept  a  full  variable  name,  but  only  recognize  the  first  two  letters, 
you  will  find  that  using  the  full  variable  name  makes  the  program 
much  easier  to  understand. 

Functions 

A  number  of  the  programs  in  this  book  use  the  BASIC  statement 
DEF  FN  to  define  specific  functions  which  are  then  “called”  from  dif¬ 
ferent  parts  of  the  program.  Most  BASICs  include  some  form  of  DEF 
FN,  the  most  notable  exception  being  Atari  BASIC.  Functions  can 
usually  be  replaced  with  subroutines,  or,  if  the  expression  or  calcu¬ 
lation  is  short  enough,  you  can  simply  replace  each  use  with  the 
whole  expression. 

High-Resolution  Graphics 

The  only  program  you  may  find  difficult  to  adapt  is  POINT-DUTY 
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ROBOT,  which  requires  high-resolution  graphics  (using  a  command 
like  PSET  or  POINT).  If  your  computer  is  capable  of  high-resolution 
graphics,  you  should  consult  your  system’s  manual  to  find  out  the 
equivalent  commands  for  your  machine.  If  not,  you’ll  find  that  the 
regular  ROBOT  LOGO  listing  is  almost  as  much  fun! 

Memory 

It  is  impossible  to  predict  exactly  how  much  memory  the  pro¬ 
grams  will  take  up  on  your  system,  but  the  majority  of  the  programs 
in  this  book  will  fit  well  within  16K  machines.  In  fact,  the  longest  pro¬ 
gram,  FLIGHT  SIMULATOR,  is  less  than  8K  long. 

If  you  have  trouble  getting  a  program  into  your  system  because 
of  a  shortage  of  memory,  cut  out  as  many  REM  statements  as  possi¬ 
ble  (check  to  make  sure  that  no  GOSUB  or  GOTO  calls  refer  to  the 
lines  you  want  to  delete)  and  try  to  shorten  the  PRINT  statements. 

General  Instructions 

These  changes  should  cover  the  adaptations  you’ll  have  to  make 
to  get  the  programs  running  on  your  computer. 

Please  be  sure  to  type  programs  in  carefully.  Remember  that  the 
instructions  you  give  to  a  computer  must  be  exactly  correct — or  the 
machine  won’t  be  able  to  run  your  program.  If  you  have  trouble  get¬ 
ting  a  program  to  run,  first  proofread  your  typed-in  version  against 
the  listing  given  in  this  book. 

The  manual  for  the  BASIC  that  came  with  your  computer  is  an 
indispensible  tool.  Check  the  manual  to  see  what’s  wrong  with  any 
program  lines  that  won’t  work — or  that  result  in  error  messages. 
Make  sure  to  use  the  exact  forms  of  the  commands  as  given  in  the 
manual. 

Talking  to  someone  who  has  a  lot  of  programming  experience — 
especially  if  it’s  with  the  computer  you’re  using — can  also  be  a  tre¬ 
mendous  help. 


The  Power 
of  Simulations 


Computer  simulations  give  you  the  power  to  try  your  hand  vicari¬ 
ously  at  almost  any  activity  you  can  imagine.  Running  a  multi-mil- 
lion-dollar  manufacturing  concern,  flying  to  the  moon,  driving  a 
racing  car,  or  running  the  country  as  President — all  these  experi¬ 
ences  can  be  yours  through  simulation  programs. 

In  this  book  you’ll  find  programs  that  allow  you  to  take  part  in 
all  these  scenarios  and  more.  You’ll  also  be  gently  introduced  to  the 
art  of  creating  computer  simulations.  After  you’ve  enjoyed  the  pro¬ 
grams  in  the  book,  you’ll  have  made  a  good  start  on  being  able  to  write 
your  own.  Studying  the  program  listings,  observing  what  the  different 
variables  represent  and  the  way  they  interact  and  how  mathematical 
formulas  are  used  to  replicate  “real  life”  situations,  will  show  you  a 
number  of  easy-to-apply  techniques  that  you  can  use  in  your  own 
simulations. 

Despite  their  obvious  entertainment  value,  computer  simula¬ 
tions  are  not  just  elaborate  games.  More  sophisticated  simulations 
are  being  used  for  training  in  many  situations  where  reality  is  too  ex¬ 
pensive,  too  dangerous,  or  too  complex  to  allow  human  beings  to 
learn  by  direct  experience.  During  airplane  pilot  training  many,  many 
hours  of  airtime  are  clocked  in  elaborate  flight  simulators — con¬ 
trolled,  of  course,  by  computers — rather  than  up  in  the  air. 

One  of  the  real  advantages  of  simulations  is  that  they  can  be  ma¬ 
nipulated  more  easily  than  the  real  situation.  For  example,  a  pilot 
training  on  a  flight  simulator  could  attempt  to  land  during  a  hurri- 


cane  with  very  little  fuel,  or  an  operator  at  a  nuclear  power  station 
could  be  faced  with  the  possibility  of  a  meltdown.  Operators  in  con¬ 
ventional  and  nuclear  power  plants  around  the  world  are  now  train¬ 
ing  on  simulators,  where  they  can  hone  their  skills  without  facing 
real  catastrophes.  One  example  of  the  use  of  computer-controlled 
simulations  in  this  area  comes  from  Australia,  where  an  electricity 
generating  board  has  spent  half  a  million  dollars  to  buy  a  simulator 
to  train  its  operators.  This  simulator,  developed  and  marketed  by  an 
Australian  company  called  Control  Simulation  Technology,  allows  a 
controller  to  simulate  a  number  of  emergency  situations,  so  that  staff 
can  learn  to  cope  with  them.  This  “emergency”  training  would  be  im¬ 
possible  without  the  use  of  a  simulator. 

Another  computer  simulator,  which  might  be  seen  as  a  little  bit 
sinister,  uses  the  reactions  of  a  few  test  subjects  to  television  and 
print  advertising  to  simulate  the  reaction  of  a  significant  portion  of 
the  population.  The  simulator,  developed  by  psychologist  Marcus 
Tomlian,  is  claimed  to  be  “the  most  sophisticated  precision  system 
for  measuring  consumer  reactions  to  advertisements.”  The  device, 
called  Mind  Monitor,  is  made  up  of  a  series  of  sensors  that  measure 
the  brain  and  heart  activity  of  a  sample  group  of  people.  The  simu¬ 
lator  runs  while  an  advertisement  is  shown  to  the  test  group,  and 
gives  a  second-by-second  readout  from  the  sensors.  The  readings  are 
then  fed  into  the  simulator,  which  analyzes  the  brain  waves  and  car¬ 
diovascular  readings  and  uses  them  to  extrapolate  the  probable  re¬ 
action  of  the  general  population.  Mr.  Tomlian  claims  that  Mind 
Monitor  can  be  used  to  find  weak  points  in  an  advertising  campaign 
so  that  the  advertiser  can  “fine-tune”  particular  campaign  elements. 
General  Electric  is  believed  to  be  at  the  forefront  of  developing  com¬ 
puter  simulations  which  help  gauge  viewers’  reaction  to  advertising, 
while  one  of  the  world’s  biggest  ad  agencies.  Young  and  Rubicam,  is 
also  investigating  the  field. 

Simulation  Limitations 

A  computer  simulation,  of  course,  must  never  be  confused  with 
the  system  it  is  simulating.  All  simulations  are,  to  greater  or  lesser 
extents,  simplifications  of  the  system  they  represent.  Low-level  sim¬ 
ulations,  like  the  programs  in  this  book,  and  the  simulations  you  are 
likely  to  create  in  the  next  few  months,  are  often  drastic  simplifica¬ 
tions.  Despite  this,  they  can  be  surprisingly  effective — trying  to  land 
a  plane  using  our  FLIGHT  SIMULATION  program  can  be  almost  as 
nerve-racking  as  the  real  thing. 

You’ll  find  that  there  is  as  much  art  as  science  involved  in  cre¬ 
ating  effective  simulations.  The  science  is  in  working  out  the  for- 
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mulas  that  represent  the  interacting  elements  of  the  system  you  are 
trying  to  simulate.  The  art  is  in  programming  those  formulas  so  that 
your  interaction  with  the  simulation  is  as  “life  like”  and  rewarding 
as  possible.  This  means  that  the  output  must  be  realistic,  and  must 
be  presented  in  a  form  that  is  readily  understood. 

For  most  simulations,  the  speed  with  which  the  program  re¬ 
sponds  to  user  input  is  very  important  If  the  simulation  is  occurring 
in  “real  time”  (that  is,  a  second  of  time  elapsed  within  the  simulation 
is  supposed  to  equal  a  second  of  time  in  real  life),  it  is  important  that 
the  simulation  is  written  so  that  this  one-to-one  correspondence  be¬ 
tween  the  times  is  as  close  as  possible. 

Simulations  can  be  divided  into  two  groups:  those  where  the 
data  is  acted  on  in  distinct  groups  or  packages,  and  those  where  the 
data  values  flow  into  each  other  repeatedly  and  continuously. 
Queuing  systems,  where  a  set  of  elements  to  be  processed  (like  a 
group  of  customers  waiting  in  line  at  a  bank  counter)  wait  in  a  queue 
until  the  system  is  ready  for  them,  are  the  main  kind  of  discontin¬ 
uous  situations  that  are  turned  into  simulations.  In  the  second  type 
of  simulation,  where  data  values  flow  into  each  other,  values  (such  as 
the  internal  temperature  of  a  nuclear  reactor)  change  constantly  over 
time. 

It  is  important  to  try  and  determine,  before  you  start  program¬ 
ming  your  own  simulation,  which  type  of  data  or  process  predomi¬ 
nates  within  the  system  you  are  going  to  program. 

Any  situation  where  elements  are  added  to  a  queue  at  rate  A  and 
removed  at  rate  B  is  a  candidate  for  a  discrete  simulation.  There  are 
many,  many  situations  like  this  in  real  life.  Discrete  queues  exist  in 
such  different  situations  as  collecting  eggs  in  an  old-fashioned  farm¬ 
yard  (where  a  queue  can  simulate  the  difference  in  time  between  eggs 
being  laid  and  gathered),  highway  accident  victims  waiting  for  am¬ 
bulances,  and  airplanes  waiting  for  clearance  to  take  off. 

Some  systems  can  be  simulated  by  either  a  discontinuous  or  a 
continuous  model.  Our  SPACE  LANDING  SIMULATION  lets  you  try  to 
land  a  spacecraft  on  the  moon.  This  program  waits  for  an  input  before 
continuing  (you  type  in  a  number  between  zero  and  nine,  represent¬ 
ing  “thrust”).  If  the  program  did  not  wait  for  your  key  press,  but  kept 
going  through  its  operational  cycle  over  and  over  again,  checking  the 
keyboard  during  each  cycle,  and  making  changes  only  if  it  detected 
a  valid  key  press,  the  simulation  would  clearly  be  a  continuous  one. 
There  would  be  no  instant  when  the  velocity  and  position  of  the  craft 
were  not  changing.  Add  a  real-time  control  facility  to  our  FLIGHT  SIM¬ 
ULATION  program,  and  you’d  have  another  non-discrete  simulation. 

In  the  next  chapter  of  this  book,  we’ll  look  at  the  basic  elements 
of  a  simulation,  and  show  how  to  break  down  a  problem  so  that  you 

3 


can  create  a  simulation  of  it  The  later  chapters  explore  many  differ¬ 
ent  types  of  simulations.  You’ll  see  a  number  of  simulation  tech¬ 
niques  in  action,  and  can  study  the  programs  to  see  how  the  results 
were  achieved.  The  lessons  you  learn  from  these  chapters  can  then 
be  applied  to  help  you  create  your  own  simulations. 

Chapter  three  looks  at  loops  and  feedback,  the  fundamental  ele¬ 
ments  of  all  simulations,  and  shows  these  in  action  with  the  SPACE 
LANDING  SIMULATION  program.  From  there  we  move  to  Monte  Carlo 
simulations,  where  the  effects  of  random  inputs  on  a  system  are  dis¬ 
cussed.  Chapter  five  presents  the  predator/prey  simulation,  where  si¬ 
multaneous  equations  model  the  interaction  of  two  kinds  of  cells 
living  within  a  culture  medium,  and  competing  for  the  right  to  sur¬ 
vive. 

The  next  chapter  presents  a  version  of  John  Conway’s  classic 
computer  simulation  LIFE,  where  birth  and  death  occur  in  a  less 
bloodthirsty  way  than  in  our  predator/prey  simulation.  The  first  ver¬ 
sion  of  this  program  allows  you  to  encode  game-starting  patterns  as 
DATA  statements,  so  that  different  evolutionary  outcomes  can  be 
studied.  Then  you’ll  shown  how  to  make  the  simple  changes  that  al¬ 
low  your  computer  to  generate  the  starting  colony  at  random. 

Chapters  seven,  eight,  and  nine,  which  look  at  robot  simula¬ 
tions,  are  considerably  more  ambitious  than  the  earlier  ones.  In 
these  chapters,  we  will  actually  examine  two  simulations  at  once. 
First,  we  simulate  the  action  of  a  computer  language  interpreter, 
which  “understands”  commands  entered  in  RCL,  a  new  computer 
language  (Robot  Control  Language).  Second,  the  programs  use  RCL 
commands  to  move  a  little  “robot,”  which  leaves  Logo-like  designs 
as  it  trundles  around  your  computer’s  screen.  The  programs  given 
here  form  a  solid  basis  for  developing  your  own  complete  “turtle 
graphics”  program. 

Artificial  intelligence  is  one  of  the  “hot”  areas  of  computer  sci¬ 
ence  at  the  moment,  and  this  book  would  not  be  complete  without  a 
program  or  two  that  showed  how  a  simulation  program  can  appar¬ 
ently  endow  a  computer  with  intelligence.  Chapter  ten  lets  you  at¬ 
tempt  the  fairly  fruitless  task  of  trying  to  beat  your  computer  at  the 
game  CONNECT  FOUR,  and  explains  how  the  program  assesses  its 
“best”  move.  The  move-selection  technique  can  be  adapted  to  many 
other  board  games.  The  following  chapter  introduces  a  program  that 
replicates  an  1890  Spanish  machine  that  plays  a  particular  chess 
endgame.  The  Quevedo  Chess  Machine  was  probably  the  first  genu¬ 
ine  attempt  to  produce  a  chess-playing  machine,  so  it  is  appropriate 
that  it  is  represented  here. 

From  chess  we  move  into  the  political  arena,  and  show  how  the 
economy  of  the  United  States  can  be  (admittedly  very  crudely)  mod- 
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eled  within  a  computer  simulation.  You  take  the  role  of  the  President, 
and  your  job  is  to  try  to  control  the  economy.  You  may  well  have  a 
deeper  sympathy  for  the  real  occupant  of  the  Oval  Office  after  you  find 
your  best  efforts  blowing  up  in  your  face. 

Money  manipulation  lies  at  the  heart  of  chapter  thirteen ’s  sim¬ 
ulation  of  a  small  stock  market  in  action,  as  you  invest  in  the  fluc¬ 
tuating  fortunes  of  five  companies,  trying  to  reach  a  financial  goal 
you  have  set  for  yourself.  If  you  find  you  have  considerable  skill  in 
this  area,  you  can  see  if  it  stands  you  in  good  stead  in  manufacturing. 
DETROIT  CITY,  presented  in  chapters  fifteen  and  sixteen,  confronts 
you  with  an  even  more  difficult  challenge.  Your  task  is  to  try  to  bring 
an  ailing  automobile  manufacturing  company  back  to  a  more  profit¬ 
able  life.  Fail,  and  you’re  out  of  a  job.  Succeed,  and  you  get  a  seat  on 
the  board. 

We  move  from  the  world  of  business  simulations  to  programs 
that  simulate  leisure  activities.  GRIDIRON,  presented  in  chapters 
seventeen  and  eighteen,  puts  you  up  against  the  computer-con¬ 
trolled  Silicon  Cowboys,  or  you  can  use  the  program  to  mediate  a 
clash  between  two  human  beings.  The  next  program  gives  you  the 
chance  to  play  a  three-set  game  of  tennis  against  your  computer. 
Again,  if  you  prefer,  you  can  use  the  simulation  simply  to  keep  track 
of  the  action,  and  play  against  another  flesh-and-blood  opponent 

In  chapters  twenty-one  and  twenty-two,  you  are  at  the  wheel  of 
a  racing  car,  as  you  try  out  your  driving  skill  on  your  choice  of  Grand 
Prix  tracks  in  Britain,  Germany,  Italy,  or  Monaco.  The  tracks  used 
within  the  program  are  based  on  the  real-life  tracks,  but  I  doubt 
whether  the  skills  you  pick  up  here  could  very  usefully  (or  safely)  be 
transferred  to  genuine  Grand  Prix  driving  on  those  circuits. 

Finally,  in  chapters  twenty-three  and  twenty-four,  we  have  our 
simulation  de  resistance,  a  complete  flight  simulator.  The  program 
simulates  an  airplane  that  is  fiendishly  difficult,  but  not  impossible, 
to  fly.  You’ll  find  that  keeping  track  of  four  or  five  constantly  chang¬ 
ing  factors  at  once  will  take  all  your  concentration.  But  the  satisfac¬ 
tion  you’ll  feel  on  your  first  successful  landing  will  make  it  all  worth 
while. 

As  you  can  see,  we  have  some  fascinating  territory  ahead  of  us. 
Let’s  go. 
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The  Components 
of  a  Simulation 


In  the  simplest  terms,  a  simulation  is  a  computer  model  of  cause  and 
effect  Event  A  is  linked  to  event  B  by  equation  X.  Modify  B,  and  C  is 
affected,  by  linking  factor  Y.  And  so  on.  Isolate  the  links  (X  and  Y,  in 
the  preceding  examples),  and  you  have  the  raw  ingredients  of  a  sim¬ 
ulation. 

If  you  turn  on  a  light  switch,  electricity  will  flow  through  the  cir¬ 
cuit,  and  the  light  will  come  on.  Cause  and  effect  are  easy  to  see  in 
this  situation: 

CAUSE - >  EFFECT - >  EFFECT 

SWITCH  ON  CURRENT  FLOWS  LIGHT  GLOWS 

It  would  be,  of  course,  a  trivial  exercise  to  write  a  program  to  simulate 
the  result  of  turning  on  a  light  switch.  However,  this  should  not  blind 
us  to  the  fact  that,  in  essence,  all  simulations — no  matter  how  com¬ 
plicated — that  you  write  will  show  a  clear  linking  between  causes  and 
effects. 

More  Complex  Links 

The  links,  of  course,  will  not  always  be  this  simple  and  straight¬ 
forward. 

Some  effects  may  only  come  into  play  when  variables  reach  trig- 
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ger  values.  For  example,  the  car  engine  in  our  GRAND  PRIX  simula¬ 
tion  blows  up  if  the  engine  temperature  exceeds  200  degrees.  Your 
own  simulations  may  have  a  link  that  looks  like  this: 

leads,  if  A  is  present,  to  EVENT  Y 
H/VEIM  A  leadg  .f  g  .s  present  tQ  EVENT  Z 

Analyze  the  links  and  express  them  in  a  diagram  like  the  above,  per¬ 
haps  substituting  mathematical  formulas  for  our  “if  A,  then  B”  links, 
and  you’re  well  on  the  way  to  writing  your  own  simulation  program. 

The  first  simulation  program  in  this  book  (in  the  next  chapter) 
puts  you  in  the  position  of  a  pilot  hying  to  land  your  spacecraft  on 
the  moon.  The  causal  links  in  this  program  are  reasonably  straight¬ 
forward,  but  still  manage  to  produce  very  interesting  and  somewhat 
unpredictable  outcomes. 

Here  are  the  links.  THRUST  is  the  input  from  the  user,  each  time 
through  the  loop. 


+ - >  FUEL  =  FUEL  -  THRUST 

:  IF  FUEL  =  0 - > - > - > - - + 

:  VARIABLE  FLAG  (VF)  =  THRUST  -  2  : 

:  HEIGHT  =  HEIGHT  +  VELOCITY  +  VF/1)  : 

:  VELOCITY  =  VELOCITY  +  VF  : 

:  V 

:  IF  HEIGHT  <  10 - > - >-- . . +  : 

- < - - C--G0T0  NEW  THRUST  INPUT  : 

V  V 

IF  VELOCITY  >  -9  AND  VELOCITY  <  5  THEN  LAND  SUCCESSFULLY  : 

ELSE - : 


CRASH - <■ 


Although  this  may  look  a  little  complex  at  first  sight,  it  is  ac¬ 
tually  fairly  simple.  You  can  see  that  the  causal  loop  diagram  looks 
pretty  much  like  a  flow  chart,  and  actually  contains  some  lines  that 
apparently  could  be  programmed  directly.  When  you  look  at  the  pro¬ 
gram  (especially  lines  170  to  240)  you’ll  see  that  some  of  the  lines 
above  do  appear  almost  unchanged  in  the  program. 

Feedback 

Causal  loops  contain  elements,  or  processes,  that  interact.  They 
also  contain  feedback  mechanisms.  The  results  of  one  series  of  com¬ 
putations  (in  the  moonlander  simulation,  for  example,  the  results  are 
the  height,  velocity,  and  fuel  left)  feed  back  to  affect  the  next  input 
(THRUST  in  this  case).  In  this  case  the  feedback  is  presented  to  the 
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user  on  the  screen.  The  user,  or  player,  then  makes  choices  about  his 
next  input  In  continuous  simulations,  the  feedback  information  can 
be  used  by  the  program  to  automatically  influence  the  state  of  the 
simulation. 

In  real  life,  feedback  influences  many  situations,  for  example,  in 
the  operation  of  a  thermostat  on  a  room  heater.  If  the  room  gets 
colder,  the  thermostat  turns  the  heater  up.  When  the  room  becomes 
warmer,  the  thermostat  turns  the  heater  down.  In  due  course,  the 
room  cools,  the  temperature  drops,  and  the  cycle  begins  again. 

Feedback  does  not  always  lead  to  a  fluctuating  output  For  ex¬ 
ample,  if  I  am  angry  with  you,  I  may  raise  my  voice.  You  shout  back. 
I  am  further  angered  by  you  raising  your  voice  and  I  raise  my  voice 
some  more.  You,  in  turn,  are  made  more  angry  by  my  increased  vol¬ 
ume,  and  shout  even  more  loudly  at  me.  A  self-reinforcing  loop  is  set 
up.  If  the  heater’s  thermostat  was  set  so  that  the  hotter  the  room  be¬ 
came,  the  more  heat  was  produced,  a  similar  self-reinforcing  feed¬ 
back  loop  would  be  seen  (and  felt!). 

Equilibrium  Points 

Many  feedback  loops  have  an  equilibrium  point.  (In  our  ther¬ 
mostat  example,  the  equilibrium  point  is  the  final  steady  tempera¬ 
ture  of  the  room.)  A  good  simulation  may,  in  effect,  challenge  the 
program  user  to  discover  that  equilibrium  point  There  may  well  be, 
for  example,  a  thrust  input  built  into  our  moonlander  program  that 
allows  the  craft  to  sink  gently  down  into  the  lunar  dust 

Negative  and  Positive  Loops 

A  negative  feedback  loop  tends  to  push  the  system  toward  an 
equilibrium  point  (As  the  room  gets  hotter,  the  thermostat  turns  the 
heater  down. )  A  positive  feedback  loop  tends  to  lead  to  dramatically 
accelerating  or  decelerating  rates,  pushing  the  system  away  from  an 
equilibrium  point  (As  the  room  gets  hotter,  the  heater  is  turned  up 
more.) 

It  is  fairly  easy  to  understand  how  a  single  feedback  loop  can 
form  the  heart  of  a  simple  simulation.  However,  most  situations  in 
real  life,  when  analyzed,  turn  out  to  be  made  up  of  more  than  one  feed¬ 
back  loop. 

For  example,  in  the  predator/prey  simulation  in  chapter  five,  we 
have  two  life  forms  whose  survival  is  inextricably  bound  together.  If 
one  species  dies  out,  the  other  will  also  die.  If  there  are  too  few  pred¬ 
ators,  the  number  of  prey  will  increase,  leading  to  more  food,  so  more 
predators  are  born.  These  in  turn  will  eat  more  prey.  The  situation  is 
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dynamic,  constantly  changing  as  the  simulation  produces  and  uses 
its  own  feedback. 

Here  is  how  chapter  five’s  program  looks  in  a  causal  diagram: 


if  enough 
+--CELL  Y  exist- 
:  to  support  X, 


No.  of  No.  of 

CELL  Y  CELL  X 


A  situation  like  this  can  either  stabilize,  or  can  move  so  that  either  X 
or  Y  becomes  dominant,  with  the  other  type  of  cell  reduced  to  an  in¬ 
effectual  level. 

Such  simulations  are  fascinating  to  run,  and  their  outcomes  can 
be  difficult  to  predict,  even  when  you  know  the  linking  formulas  well. 
In  a  simulation  like  this,  where  there  are  two  negative  feedback  loops 
in  operation,  X  and  Y  fluctuate  about  an  equilibrium  point  as  they  act 
on  each  other. 

Your  own  simulation  programs  will  be  easier  to  write  if  you  con¬ 
sider  the  behavior  of  the  system  you  want  to  model  in  terms  of  pos¬ 
itive  or  negative  feedback  loops. 

Some  relationships  are  easier  to  see  than  others.  For  example, 
this  diagram  shows  the  relationship  between  the  work  involved  in 
pumping  water  from  a  well,  the  thirst  produced  by  that  work,  and  the 
amount  of  water  produced: 


amount  quantity  amount 

drunk  of  water  •  pumped 


This  is  a  fairly  clear  situation,  one  that  is  probably  simpler  than  any 
real-life  situation  you’ll  try  to  model  with  a  simulation  system.  If  a 
double  loop  is  needed  to  show  the  relationship  of  something  simple 
like  this,  it  is  highly  likely  that  the  systems  you’ll  want  to  simulate 
will  need  two,  or  more,  interacting  loops. 


For  example,  the  ecological  system  of  oxygen  use  and  replenish¬ 
ment  on  Earth  can  be  shown  with  the  following  diagram: 


Time  Against  Action 

You  may  well  find  that  producing  a  graph  of  the  action  of  a  sys¬ 
tem  makes  it  easier  to  understand  both  the  dynamics  of  the  system 
and  the  causal  loops  that  are  acting  within  it 

If  we  plot  against  time  the  populations  of  cell  type  X  and  cell  type 
Y  from  the  runs  of  chapter  five’s  predator/prey  simulation,  we  get 
graphs  like  these: 


:  B  0 
!  7  0 
!  60 

Number  .  5 0 
of  :  40 
cells  s  3  0 
:  SO 
!  1  0 
:  0 


01  8345678910 

- Time - 
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These  graphs  show  dramatically  how  the  two  life  forms  are  related. 
The  crossover  points  of  the  lines  also  suggest  where  the  equilibrium 
points  of  the  system  may  be. 

So  the  causal  loop  diagrams  help  us  find  the  underlying  rela¬ 
tionships  within  the  system  we  hope  to  simulate,  and  a  graph  of  the 
outputs  of  the  simulation  plotted  against  time  allows  us  to  see  cause 
and  effect  in  action  within  the  system.  This  graphed  data  can  help  us 
to  see  the  effectiveness  or  otherwise  of  our  simulation,  and  helps  our 
understanding  of  what  is  actually  going  on  as  the  simulation  runs. 

You  should  now  have  enough  background  information  to  un¬ 
derstand  the  processes  involved  in  the  creation  and  running  of  the 
simulation  programs  that  make  up  the  rest  of  the  book.  Once  you  get 
the  programs  up  and  running,  you  may  well  want  to  draw  causal  dia¬ 
grams  to  show  the  links  between  elements  in  these  programs.  As 
well,  the  output  from  some — but  not  all — of  the  simulations  can  be 
graphed,  to  give  further  insight  into  the  working  of  the  system  being 
modeled. 
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Feedback 
in  Action 


In  this  chapter,  we’ll  look  at  our  first  simulation  program,  one  that 
has  been  around  in  one  form  or  another  since  the  earliest  days  of 
commercial  computers.  In  those  days,  a  lot  of  expensive  corporate 
and  academic  computer  time  was  consumed  by  would-be  space  pilots 
trying  to  land  creaky  old  space  ships  on  the  moon. 

Unlike  the  predator/prey  simulations  in  chapter  five,  which  use 
simultaneous  equations,  simulations  like  this  one  use  a  series  of  for¬ 
mulas  held  within  a  loop.  After  each  run  through  the  loop,  the  system 
operator  receives  feedback  on  the  status  of  particular  variables  that 
are  being  modified  (in  this  case,  fuel,  height,  and  velocity).  On  the  ba¬ 
sis  of  this  feedback,  the  operator  decides  what  input  to  enter,  and 
then  waits  for  the  computer  to  report  back  on  the  result  of  processing 
that  new  input 

Here  is  how  the  series  of  mathematical  operations  is  repre¬ 
sented  within  the  program  loop.  A$  is  the  user  input,  signifying 
thrust 

1 6  0  THRUST=VAL ( A  $ ]  +  . 1 
170  FUEL=FUEL-THRUST 
180  FLAG=THRUST-2 
190  THRUST=0 

200  HEIGHT=HEIGHT+VEL0CITY+FLAG/4 
210  VEL0CITY=VEL0CITY+FLAG 
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Typically,  the  main  loop  has  certain  exit  conditions  (such  as,  in 
this  simulation,  when  you  crash,  run  out  of  fuel,  or  manage  to  land 
safely)  that  abort  the  cycle  and  end  the  run  with  a  status  report  to  the 
operator.  Lines  220  and  240  in  the  next  section  of  the  program  check 
to  see  if  the  cycle  should  leave  the  loop,  while  230  sends  it  back  for 
another  run  through: 

2  20  IF  HEIGHT  <  =  1 0  THEN  240 
230  IF  HEIGHT>1 0  THEN  120 

240  IF  VELOCITY  >-9  AND  VEL0CITY<5  THEN  2 
9  0 


Of  course,  you  don’t  need  to  know  this,  or  keep  it  in  mind,  when 
running  a  program  like  the  SPACE  LANDING  SIMULATION  in  this 
chapter.  As  far  as  you’re  concerned,  you’re  trying  to  land  your  ship, 
and  the  mechanics  of  handling  your  input  are  none  of  your  concern. 

In  this  program  user  input  is  limited  to  choosing  thrust  You  sig¬ 
nify  a  high  thrust  by  pressing  the  “9”  key;  a  low  thrust  with  the  “1” 
key;  and  zero  thrust  with  the  “0”  key.  Intermediate  values  are  entered 
by  touching  other  number  keys.  There  is  no  need  to  press  the  RE¬ 
TURN  or  ENTER  key  at  this  point,  as  INKEYS  (or  GETS)  are  used  to 
read  the  keyboard. 

Let’s  see  how  an  unskilled  pilot  makes  out  when  trying  to  land 
a  spacecraft  using  this  simulation: 


FUEL  VEL 

208.33  -11. 

208.23  -9.5 

208.13  -7.6 

208.03  -5.7 

207.93  -3.8 

207.83  -1.9 

207.73  -.02 

207.63  1.8 

207.53  3.7 

207.43  5.6 

207.33  7.5 


188.23  10. 
179.13  3.3 
170.03  -3.7 
160.93  -10. 
151.83  -17. 


0CITY  HEIGHT 

42  497.03 

20001  507.99 

2  517.04 

2  524.2 

2  529.45 

2  532.8 

534.26 
8  5  3  3  .  B  1 

8  531.47 

8  527.22 

8  521.07 


48  341.57 

8  3  3  2  .  8  7 

2  331.28 

82  336.78 

92  349.39 
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15  1  .73 
151  .63 
151 .53 
151 .43 
151 .33 
151  .23 


-16.02 

-14.12 

-12.22 

-10.32 

-8.42 

-6.52 


366.84 

382.39 

396.05 

407.8 

417.66 

425.61 


150.03 

149.93 

149.83 

149.73 
149.63 
149.53 
149.43 
149.33 
149.23 
149.13 
149.03 

148.93 

148.83 


16.28 

18.18 

20.08 

21.98 

2  3.88 
25.78 
27.68 
29.58 
31.48 

3  3.38 
35.28 
37.18 
3  9.08 


372.86 

356.11 

337.47 
316.92 

294.48 
270.13 
243.88 

215.74 
185.69 

153.75 
119.9 

8  4.15 
46.51 


YOU  HAVE  CRASHED  INTO  THE  SURFACE... 


FINAL  INSTRUMENT  READINGS  WERE: 
FUEL  VELOCITY  HEIGHT 

148.73  40.98 


NEW  CRATER  ON  MOON  2.25  METERS  DEEP! 
YOUR  SKILL  RATING  IS  -438 


The  picture  is  very  different  when  a  skilled  space  jockey  takes 
the  controls: 


FUEL 

210.71 

210.61 

210.51 

210.41 

210.31 

210.21 

210.11 

210.01 


VELOCITY  HEIGHT 

4.02  496.05 

5.92  491.57 

7.82  485.18 

9.72  476.89 

11.62  466.7 

13.52  454.61 

15.42  440.62 

17.32  424.73 
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19.28 

12.12 

5.02 


209.91 

200.81 

191.71 

182.61 

182.51 

182.41 

182.31 

182.21 

182.11 

182.01 


-2.08 
-.18 
1  .72 
3.62 
5.52 
7.42 
9.32 


406.94 

3  8  9  .5 

379.16 

375.92 

377.53 

377.24 

375.05 

370.96 

364.97 
357.08 


150.91  20.22  126.75 

147.81  19.12  106.81 

144.71  18.02  87.97 

140.61  15.92  70.48 

134.51  11.82  55.59 

126.41  5.72  45.3 

124.31  5.62  39.61 

122.21  5.52  34.02 

118.11  3.42  29.03 

116.01  3.32  25.64 

113.91  3.22  22.35 

111.81  3.12  19.16 

108.71  2.02  16.32 

107.61  2.92  14.08 

106.51  3.82  10.94 

YOU  HAVE  LANDED  SAFELY  I 

YOUR  SKILL  RATING  IS  9067 


FINAL  INSTRUMENT  READINGS  WERE: 
FUEL  VELOCITY  HEIGHT 

105.41  4.72  0 


Here’s  the  listing  so  you  can  do  your  bit  for  NASA: 

ID  REM  SPACE  LANDING  SIMULATION  I 
2D  RANDOMIZE  V A L [ R I G H T $ t T  I  M E $ , 2 )  ) 

30  REM  ***************************** 
40  REM  SET  STARTING  VALUES 
50  FUEL=200+RND [ 1 ) *40 
60  VELOCITY=RND [1 ) *20-6 
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70  HEIGHT=500-RND [1 ) *1 0 
8  0  CLS 

90  PRINT  "  FUEL";TAB(12];"  VELOCITY" ;TAB 
(24];"  HEIGHT" 

100  REM  ***************************** 

110  REM  MAJOR  CYCLE 
120  GOSUB  430 

130  IF  F  U  E  L  <  =  0  THEN  F  U  E  L  =  0  :  T  H  R  U  S  T  =  0  s  G  OT  0 
1  7  0 

140  A$=INKEY$ 

150  IF  A  $  <  "  0  "  OR  A  $  >  "  9  "  THEN  140 

1  BO  THRUST  =  VALl A$)  +  .1 
170  FUEL=FUEL-THRUST 
180  FLAG=THRUST-2 
190  THRUST=0 

2  D  0  HEIGHT=HEIGHT  +  VELOCITY+ FLAG/4 
210  VELOCITY=VELOCITY+FLAG 

220  IF  HEIGHT<=1 0  THEN  240 
230  IF  HEIGHT>10  THEN  120 

240  IF  VEL0CITY>-9  AND  VEL0CITY<5  THEN  2 
90 

250  GOSUB  410 

260  PRINT  "YOU  HAVE  CRASHED  INTO  THE  SUR 
FACE..." 

270  IF  HEIGHT>0  THEN  H E I G H T  =  - H E  I  G H T 
280  GOTO  320 

290  PRINT  "YOU  HAVE  LANOED  SAFELY  I  " 

300  PRINT  "YOUR  SKILL  RATING  IS"INT(-100 
0*FUEL/ (VELOCITY-HEIGHT] ] 

310  HEIGHT=0 
320  GOSUB  410 

330  PRINT  "FINAL  INSTRUMENT  READINGS  WER 
E  :  " 

340  PRINT  "  FUEL"  ;  T  A  B ( 1 2  )  ;  "  VELOCITY" ;TA 
B  (  2  4 ]  ;  "  HEIGHT" 

350  GOSUB  430 
360  GOSUB  410 
370  IF  HEIGHT>=0  THEN  END 

3  8  0  IF  HEIGHT  <0  THEN  PRINT  "NEW  CRATER  D 
N  MOON"INT[ABS(100*(HEIGHT+.2]/3)  ] / 1  0  0 " M 
ETERS  DEEP!" 

390  PRINT  "YOUR  SKILL  RATING  IS  "  I  N  T ( 1 0  0 
♦FUEL/ (VELOCITY-HEIGHT)} 

400  END 


410  PRINT  " -  - - 

420  RETURN 

430  PRINT  INT(1 00*FUEL]/1 00 ; 

440  PRINT  TAB [ 1 2 ]  f-I NT [ 1 00 *VE L DC ITY ] /I  00 

450  IF  HEIGHT>=0  THEN  PRINT  TAB(24)5lNT[ 

1 00*HEIGHT]/100 

460  IF  HEIGHTCO  THEN  PRINT 

470  RETURN 

Once  you  can  land  consistently  with  the  program  in  its  current 
form,  change  line  50  to  the  following,  to  create  a  whole  new  challenge: 

50  FUEL=1 00+RN0 ( 1 ) *40 
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4 


Monte  Carlo 
Simulations 


Monte  Carlo  simulations  are  those  simulations  that  depend  on 
chance  or  random  factors.  The  random  elements  in  such  programs 
may  be  weighted  to  simulate  probabilities  within  specified  limits 
(such  as  the  results  of  throwing  a  pair  of  dice)  or  may  be  more  or  less 
genuinely  random.  In  this  chapter,  you’ll  see  a  fairly  “open”  Monte 
Carlo  simulation  in  action. 

Our  program  is  designed  to  simulate  the  effect  of  Brownian 
movement  on  a  very  small  particle  suspended  in  a  fluid.  The  random 
motion  of  such  a  particle,  which  is  observed  when  the  particle  is  less 
than  about  one-thousandth  of  a  millimeter  in  diameter,  is  caused  by 
the  impact  of  the  atoms  or  molecules  of  the  fluid  on  the  particle. 
Brownian  movement  can  be  seen  as  smoke  disperses  in  still  air,  or 
as  ink  is  diffused  in  a  tumbler  of  water.  It’s  named  after  Robert  Brown, 
a  Scottish  botanist  who  in  1827  first  noted,  but  was  unable  to  explain, 
the  movement  seen  when  looking  through  a  microscope  at  a  solution 
of  pollen  grains  in' water. 

The  simulation  is  shown  on  a  10  by  10  grid,  with  a  single  pollen 
grain,  depicted  by  “0”.  When  you  run  the  program,  you  enter  the  po¬ 
sition  where  you  want  the  grain  to  start,  and  also  set  up  a  “goal”  po¬ 
sition.  The  simulation  ends  when  the  pollen  grain  reaches  the  goal 
position. 
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Here’s  how  it  begins: 


ENTER  FIRST  START  CO-ORDINATE  (LESS 
THAN  10) 

?  3 

ENTER  SECOND  START  CO-OROINATE  (LESS 
THAN  10) 

?  4 

ENTER  FIRST  ENO  CO-OROINATE  (LESS 
THAN  10) 

?  6 

ENTER  SECOND  ENO  CO-OROINATE  (LESS 
THAN  10) 

?  7 

MOVE  1 


0 


X 


And  here  are  some  screen  printouts  as  the  simulated  Brownian 
movement  makes  the  grain  drift  about: 

MOVE  5 


0  .  .  X 
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MOVE  9 


MOVE 


1  1 


Finally,  on  the  fourteenth  move,  the  pollen  grain  reaches  the  tar¬ 
get  position,  and  the  demonstration  ends: 

MOVE  14 


0 


D  EM  ONSTRATI ON  OVER 
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Here’s  the  listing  so  that  you  can  explore  this  Monte  Carlo  dem¬ 
onstration: 

10  REM  MONTE  CARLO  DEMONSTRATION 

20  GOSUB  3  7  0  : R  EM  INITIALIZE 

30  REM  **************************** 

40  REM  MAJOR  CYCLE 
50  GOSUB  100:  REM  PRINT 

BO  IF  P  =  E  P  AND  Q  =  EQ  THEN  PRINT :PRINT  "DE 
MONSTRATI  ON  OVER" : END 
70  GOSUB  2  3  0  ; R  E  M  GENERATE  MOVE 
80  GOTO  50 

90  REM  **************************** 

100  REM  PRINTOUT 
110  A  $ ( P  t  Q ] =  »  0 " 

120  M  =  M  +  1 

130  CLSjPRINT :PRINT 
140  PRINT  " M  0  V  E " M 
150  FOR  X= 1  TO  10 
160  FOR  Y  =  1  TO  10 
170  PRINT  A  $  (  X  ,  Y  ) 5"  "} 

180  NEXT  Y 
190  PRINT 
200  NEXT  X 
210  RETURN 

220  REM  **************************** 

230  REM  GENERATE  MOVE 
240  A  $  (  P  ,  Q  )  =  »  .  " 

25  0  G  =  0 

260  T  =  INT(RND[1  ) *  4 1 +1 

270  ON  T  GOSUB  310,320,330,340 

280  IF  G  =  0  THEN  260 

2  90  IF  G  =  1  AND  RND(1)>„5  THEN  260 
300  RETURN 

310  IF  P>1  THEN  P  =  P-1  :  G  =  G  +  1  : RETURN 
320  IF  P<10  THEN  P =P + 1 : G = G + 1 : R ET U R N 

3  3  0  IF  Q  > 1  THEN  Q= Q - 1  : G  =  G  + 1  : R ET U R N 
340  IF  Q  < 1 0  THEN  Q  =  Q  +  1  : G  =  G  +  1  : R ET UR N 
350  RETURN 

360  REM  *#*#**# a*****##***#*#***#*# * 

370  REM  INITIALIZE 
380  CLS 

390  RANDOMIZE  VA L { R I G HT $ [ T I M E $ , 2 ] ] 

400  DIM  A  $ ( 1 0 , 1 0 ] 
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410  FOR  X  =  1  TO  10 
4  5  0  FOR  Y  =  1  TO  10 
430A$(X,Y)="„" 

440  NEXT  Y 
450  NEXT  X 
460  PRINTiPRINT 

470  PRINT  "ENTER  FIRST  START  CO-ORDINATE 
[LESS  THAN  10)" 

480  INPUT  P 

490  IF  PCI  OR  P>10  THEN  480 

500  PRINT  "ENTER  SECOND  START  CO-ORDINAT 

E  [LESS  THAN  10)" 

510  INPUT  Q 

520  IF  Q  < 1  OR  Q  > 1  0  THEN  510 
530  PRINTjPRINT 

540  PRINT  "ENTER  FIRST  END  CO-ORDINATE  [ 
LESS  THAN  10)" 

550  INPUT  EP 

560  IF  E  P  =  P  OR  E  P  <1  OR  EP>10  THEN  550 
570  PRINT  "ENTER  SECOND  END  CO-ORDINATE 
(LESS  THAN  10)" 

580  INPUT  EQ 

590  IF  EQ=Q  OR  EQ<1  OR  EQ>10  THEN  5B0 
600  A$(P,Q]="0" 

610  A$[EP,EQ)=»X" 

620  RETURN 
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5 


Simultaneous 

Equations 


We  can  also  create  simulations  that  use  simultaneous  equations  to 
show  the  effects  of  two  interacting  factors  on  each  other.  These  equa¬ 
tions  are  often  used  in  predator/prey  simulations  like  the  one  we’ll 
examine  in  this  chapter. 

In  this  example,  we  have  two  forms  of  cell  living  in  a  culture. 
Both  cells  feed  on  nutrients  in  the  culture  medium,  and  attempt  to 
reproduce  as  the  simulation  runs.  Cell  X  also  needs  to  consume  cell 
Y  in  order  to  survive.  If  there  are  too  many  of  cell  X,  it  will  kill  off  all 
of  cell  Y,  and  will  then  die  itself.  If  there  are  none  of  cell  X,  cell  Y  will 
reproduce  wildly,  and  choke  the  medium. 

You  are  allowed  to  set  the  starting  numbers  of  cells  X  and  Y  in 
each  run  of  the  simulation.  You  have  to  try  and  create  a  population 
balance  that  will  allow  the  cell  colony  to  survive  for  as  long  as  pos¬ 
sible.  Although  the  degree  of  aggressiveness  of  cell  X  toward  Y 
changes  from  run  to  run  of  the  program  (so  that  you  can’t  just  learn 
which  numbers  will  always  work),  it  does  not  change  within  a  single 
run,  so  you  can  try  various  combinations  to  see  how  they  behave. 
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The  program  starts  by  reporting  the  decay  factor,  which  is  the 
degree  of  aggressiveness  cell  X  displays  toward  Y.  It  then  asks  you  to 
enter  the  starting  populations: 

DECAY  FACTOR  IS  .1400966 

ENTER  NUMBER  OF  CELL  X  TO 
START  [LESS  THAN  40 ] 

?  37 

WE  HAVE  37  X  CELLS 


ENTER  NUMBER  OF  CELL  Y  TO 
START  (LESS  THAN  40 ] 

7  25 


Once  you’ve  made  your  choice,  the  program  works  out  the  life 
history  of  your  cell  cultures,  keeping  you  up  to  date: 


TIME  ELAPSED:  1 
37  CELL  X 
25  CELL  Y 


TIME  ELAPSEO :  2 

35  CELL  X 
17  CELL  Y 


TIME  ELAPSED  :  3 

46  CELL  X 
9  CELL  Y 


TIME  ELAPSED:  4 
77  CELL  X 
2  CELL  Y 


TIME  ELAPSED:  5 
37  CELL  X 
1  CELL  Y 

YOUR  CELL  CLASH  SIMULATION  SURVIVED 
FOR  5  TIME  PERIODS. 


THE  BEST  SURVIVAL  TIME  SO  FAR  IS  5 


DO  YOU  WANT  A  NEW  RUN  tY  DR  N]? 


The  program  also  keeps  track  of  the  “longest  life  so  far.  ”  It  gives 
you  an  opportunity,  in  subsequent  runs,  to  see  the  effect  of  different 
starting  populations: 


ENTER  NUMBER  OF  CELL  X  TO 
START  [LESS  THAN  40  ) 

?  25 

WE  HAVE  25  X  CELLS 

ENTER  NUMBER  OF  CELL  Y  TO 
START  [LESS  THAN  40  ) 

?  3  7 


TIME  ELAPSEO  t  4 
2  CELL  X 
35  CELL  Y 


TIME  ELAPSED:  5 
1  CELL  X 
36  CELL  Y 


YOUR  CELL  CLASH  SIMULATION  SURVIVED 
FOR  5  TIME  PERIODS. 


THE  BEST  SURVIVAL  TIME  SO  FAR  IS 

ENTER  NUMBER  OF  CELL  X  TO 
START  [LESS  THAN  40] 

?  3  B 

WE  HAVE  3  B  X  CELLS 

ENTER  NUMBER  OF  CELL  Y  TO 
START  [LESS  THAN  40] 

?  3  B 
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TIME  ELAPSED  s  2 
13  CELL  X 
34  CELL  Y 


TIME  ELAPSED:  3 
6  CELL  X 
33  CELL  Y 


TIME  ELAPSED :  4 

3  CELL  X 
33  CELL  Y 


TIME  ELAPSED  :  5 

1  CELL  X 
34  CELL  Y 


YOUR  CELL  CLASH  SIMULATION  SURVIVED 
FOR  5  TIME  PERIODS. 


THE  BEST  SURVIVAL  TIME  SO  FAR  IS  5 


DO  YOU  WANT  A  NEW  RUN  [Y  OR  N  )  V 

ENTER  NUMBER  OF  CELL  X  TD 
START  (LESS  THAN  40) 

?  2  2 


WE  HAVE  22  X  CELLS 


ENTER  NUMBER  DF  CELL  Y  TO 
START  (LESS  THAN  40  } 

?  30 


TIME  ELAPSED  :  3 

13  CELL  X 
23  CELL  Y 


TIME  ELAPSED:  4 
14  CELL  X 
21  CELL  Y 
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TIME  ELAPSED:  5 
15  CELL  X 
18  CELL  Y 


TIME  ELAPSED :  6 

19  CELL  X 
15  CELL  Y 


TIME  ELAPSED:  7 
27  CELL  X 
12  CELL  Y 


TIME  ELAPSED:  8 
41  CELL  X 
7  CELL  Y 


TIME  ELAPSED:  9 
74  CELL  X 
2  CELL  Y 


TIME  ELAPSED :  1 0 

32  CELL  X 
1  CELL  Y 


YOUR  CELL  CLASH  SIMULATION  SURVIVED 
FOR  10  TIME  PERIODS. 


THE  BEST  SURVIVAL  TIME  SO  FAR  IS  10 


00  YOU  WANT  A  NEW  RUN  fY  OR  N)? 
OK 


The  most  crucial  parts  of  the  program  are  the  equations  that  cal¬ 
culate  the  cell  populations.  These  are  lines  330  and  340: 

330  CP=CP+( (8*CP-CP*EP/3) *FD] 

340  EP=EP+[ [4*EP-EP*CP)*.01 1 


Modify  parts  of  these  program  statements  and  watch  the  effect  this 
has  on  the  progress  of  your  simulation.  You’ll  probably  be  surprised 
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to  see  the  far-reaching  effects  of  even  the  most  apparently  minor 
change.  Here’s  the  listing: 


10  REM  SIMULTANEOUS  EQUATIONS 
20  CLS 

30  RANDOMIZE  V A L [ R I G H T $  1 T I M E $ , 2 J  ) 

40  H  S=  0 
50  F  D  =  R  N  D ( 0  ) 

B0  PRINT:PRINT  "DECAY  FACTOR  IS"FD 
70  G0SUB  550 
8  0  CLS 

90  PR  I  NT : PR  I  NT 

100  PRINT  "ENTER  NUMBER  OF  CELL  X  TO 
START  [LESS  THAN  40)" 

110  INPUT  CPs  IF  CP<1  OR  C  P  >  3  9  THEN  110 
1 20  PRINTiPRINT 

130  PRINT  "WE  HAVE " CP "X  CELLS" 

1 40  PRINTsPRINT 

150  PRINT  "ENTER  NUMBER  OF  CELL  Y  TO 
START  ( LESS  THAN  40 )  " 

160  INPUT  EP.-IF  EP<1  OR  EP>39  THEN  160 
170  C  LS : P  R I  NT  SPRINT  "PLEASE  STAND  BY..." 

180  GOSUB  5  5  0  :  C  L  S 
1  90  D  A  =  1 

200  IF  CP  >EP/FD  THEN  CP=EP/FD 

210  PRINT  " - " 

220  PRINT  "TIME  ELAPSED.- "DA 
230  PRINT  INT(CP)"CELL  X" 

240  PRINT  INT[EP)  "CELL  Y" 

250  REM  *************************** 

260  REM  MAJOR  CYCLE 
270  GOSUB  550 
280  D  A=  D  A  +  1 

290  PRINT  " - " 

3  0  D  PRINT  "TIME  ELAPSED! "DA 
310  IF  CP>EP/FD  THEN  CP=EP/FD 
320  REM  EQUATIONS  FOLLOW?  MDDIFY  PARTS 
OF  THEM  TO  SEE  WHAT  HAPPENS 
330  CP=CP+{ (B*CP-CP*EP/3) *  F  D  ) 

340  EP=EP+[ [4*EP-EP*CP) *.01) 

350  PRINT  INT[CP) "CELL  X" 

3  6  0  PRINT  I  NT (EP)  "CELL  Y" 

370  IF  E  P  <  2  OR  CP<2  THEN  410 
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380  GOSUB  550 
390  GOTO  280 

400  REM  **$***##**#*##*##**#$#*##** 

410  IF  D  A  >  H  S  THEN  H  S  =  D  A 
420  PRINT: PRINT 

430  PRINT  "YOUR  CELL  CLASH  SIMULATION  SU 
R  V  I  V  E  D  " 

440  PRINT  "FOR "DA "TIME  PERIODS." 

450  PRINT  " - 


460  PRINT  "THE  BEST  SURVIVAL  TIME  SO  FAR 
I  S  "  H  S 

470  GOSUB  550 

480  PRINT  " - 


490  PRINT  "DO  YOU  WANT  A  NEW  RUN  IY  OR  N 
]  ?" 

500  A*=INKEY$ 

510  IF  A  $  <  >  "  Y "  ANO  A  $  <  > " N "  THEN  500 
520  IF  A$="Y"  THEN  CLS:GOTO  60 
530  PRINT  "OK":PRINT :PRINT :END 

550  FOR  J  =  1  TO  2000  .-NEXT  J 
560  RETURN 
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6 


The  Meaning 
of  Life 


In  the  previous  chapter  we  looked  at  a  program  that  simulated  the 
action  of  two  competing  life  forms  occupying  a  single  space.  In  that 
simulation,  the  growth  and  decay  of  the  cells  were  governed  by  si¬ 
multaneous  equations.  In  this  chapter,  we’ll  look  at  two  versions  of 
a  simulation  classic,  John  Conway’s  LIFE.  This  simulation  models 
the  growth  and  development  of  a  colony  of  cells  living  on  a  grid. 

Developed  by  Conway  when  he  was  at  Gonville  and  Caius  Col¬ 
lege,  in  Cambridge,  England,  LIFE  produces  some  amazing  effects, 
whose  richness  is  not  even  hinted  at  by  the  rules  under  which  the 
cells  live,  reproduce,  and  die.  To  show  this,  we’ll  look  at  a  colony  of 
cells  that  starts  off  forming  a  square.  This  particular  colony  dies  off 
after  three  “generations”: 

GENERATION  1 


XXXXX 
X  X 

X  X 

X  X 

XXXXX 


XXXXX 
X  X 
X  X 
X  X 
XXXXX 
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GENERATION  S 


XXX 
XXXXX 
XX  X  XX 
XXX  XXX 
XX  X  XX 
XXXXX 
XXX 


XXX 
XXXXX 
XXXXX 
XXX  XXX 
XX  X  XX 
XXXXX 
XXX 


GENERATION  3 


Another  colony,  which  begins  life  in  an  “X”  shape,  evolves  as 
follows  {the  program  prints  a  “mirror  image”  colony  to  the  right  of 
the  original  colony  in  all  these  sample  runs). 


generati ON  1 


XX  XX 

XX  XX 

X  X 

XX  XX 

XX  XX 
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GENERATION 


XXX  XXX 

XX  XX 

XXX  XXX 


GENERATION  3 


X 


X  X 
X  X 
X  X 
X 


GENERATION  4 


X  X 

XXX  XXX 

XX  XX  XX  XX 

XXX  XXX 

X  X 


GENERATI ON  5 


XXX 
X  X 

X  X 

X  X 

XXX 


XXX 
X  X 

X  X 

X  X 

XXX 


32 


GENERATI ON 


X 

XXX 
XXX 
XXX  XXX 
XXX 
XXX 
X 


X 

XXX 
XXX 
XXX  XXX 
XXX 
XXX 
X 


GENERATION  7 


XXX 

X  X 

X  X 

X  X 

XXX 


XXX 

X  X 

X  X 

X  X 

XXX 


GENERATI ON  S 


X  X 

X  X 

X  X 

XXX  XXX  XXX  XXX 

X  X 

X  X 

X  X 


If  we  continue  to  run  this  simulation,  each  horizontal  set  of  X’s 
flips  to  become  a  vertical  set,  and  the  vertical  sets  become  horizontal. 
This  pattern  of  three  alternating  from  horizontal  to  vertical  is  one  of 
a  number  of  patterns  that  regularly  crop  up  in  runs  of  the  program. 
This  particular  pattern  is  commonly  known  as  “traffic  lights.” 
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The  Rules 

Conway’s  rules  are  not  very  complicated,  but  they  are  sufficient 
to  give  rise  to  the  marvelous  effects  we’ve  been  looking  at  They  as¬ 
sume  each  cell  has  eight  neighbors.  (We  keep  the  outermost  ring  of 
cells  empty;  these  are  checked,  but  not  printed  out)  If  a  cell  has  two 
or  three  neighbors,  it  survives  to  the  next  generation.  If  a  cell  has  four 
neighbors,  it  dies  out  in  the  next  generation  due  to  overcrowding.  If 
there  are  exactly  three  cells  neighboring  an  empty  cell,  a  cell  is 
“born”  in  that  location  in  the  next  generation. 

The  rules  are  applied  simultaneously  across  the  whole  grid.  We 
do  this  by  having  a  second  grid,  which  records  the  changes  as  the 
first  grid  is  scanned.  The  second  grid  is  then  copied  into  the  first  be¬ 
fore  it  is  printed. 

This  is  the  listing  that  produced  the  effects  above.  The  DATA 
statements  at  the  end  can  be,  of  course,  changed  to  whatever  initial 
colony  you  desire; 


10  REM  CONWAY'S  LIFE  SIMULATI 
20  REM  DEFINED  INITIAL  COLONY 
30  60SUB  46  0  : R  EM  INITIALIZE 
40  REM  ********************** 
50  REM  MAJOR  CYCLE 
60  GENERATI 0N=GENERATI0N+1 
70  G0SUB  2  9  0  : R  E  M  PRINTOUT 
80  G0SUB  1 1 0 : R  EM  EVOLVE 
90  GOTO  60 

100  REM  if******************** 

110  REM  EVOLVE 

120  FOR  X=2  TO  12 

130  FOR  Y  =  2  TO  12 

140  C=0 

150  IF  A$ (X-1 , Y-1 ) ="X"  THEN  C 
160  IF  A$(X— 1 ,Y)="X"  THEN  C=C 
170  IF  A$ [X-1 , Y+1 )="X"  THEN  C 
180  IF  A  $  [  X  ,  Y  -  1 ]="X"  THEN  C=C 
190  IF  A$(X,Y+1)="X"  THEN  C=C 
200  IF  A* (X+1 f Y-1 ]="X"  THEN  C 
210  IF  A$  (  X  +  1  ,  Y  1  =  *•  X  "  THEN  C  =  C 
220  IF  A$ [X+1 , Y+1 J="X"  THEN  C 
230  IF  A$[XPY]="X"  AND  C<>2  A 
N  B  $  [  X  ,  Y  )  =  "  " 

240  IF  A$[X,Y)=»  «  AND  C=3  TH 

"X" 


ON 


=  C  +  1 
+  1 

=  C  + 1 
+  1 
+  1 

=  C  +  1 
+1 

=  C  +  1 
ND  C  <  >  3 

EN  B  $  [  X 


THE 


Y  )  - 
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250  NEXT  Y 
260  NEXT  X 
270  RETURN 

280  REM  ************************* 

290  REM  PRINTOUT 
3  0  0  C  L  S 
310  PRINT 

320  PRINT  TAB ( 4 ]  5  "  G ENERATI ON" GEN ERAT I  ON 

330  PRINT 

340  FOR  X  =  2  TO  12 

350  FOR  Y  =  2  TO  12 

360  A$[X,Y)=B$[X,Y) 

370  PRINT  A$(X,Y] 5 
380  NEXT  Y 

390  FOR  Y  =  1 2  TO  2  STEP-1 
400  PRINT  A  $ ( X , Y )  ; 

410  NEXT  Y 
420  PRINT 
430  NEXT  X 
440  RETURN 

460  REM  INITIALIZATION 
470  CLS 

480  RANDOMIZE  V A L  (  R I G HT $ ( T I M E $ , 2 )) 

490  DEFINT  A-Z 

500  DIM  A$ [ 1 3 1 1 3 )  ,  B  $  [  1  3  ,  1  3  ] 

510  PRINT -.PRINT  "  PLEASE  STAND  BY..." 
5  2  D  FOR  X  =  1  TO  13 
530  PRINT  14 -X} 

540  FOR  Y  =  1  TO  13 

550  REM  FILL  ARRAY  WITH  BLANKS 

560  A  $  (  X  ,  Y  }  =  »  " 

570  8  $ (X , Y ] =A$ [X  ,  Y] 

580  NEXT  Y 
580  NEXT  X 

600  READ  D :  I F  D  =  9  9  THEN  630 

610  READ  EsA*(D,EJ="X":B$(D,E]="X" 

620  GOTD  6  0  D 
630  GENERATIONS 
640  RETURN 

650  DATA  5  ,  5  ,  5 , 9  ,  6 , 6 , 6 f 8 
660  DATA  7,7 

670  DATA  8, 6, 8, B, 9, 5, 9, 9 
700  DATA  99 
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Colonies  at  Random 


If  you  prefer  to  let  your  computer  generate  a  starting  colony  at 
random,  leaving  you  simply  to  admire  its  work,  add  the  following 
lines: 

555  IF  RND[1)>.5  THEN  A  $ [ X  ,  Y ) = » X ■ s G OT 0  5 
70 

595  GOTO  630 


The  evolution  of  a  randomly  generated  colony  is  always  fasci¬ 
nating  to  watch,  as  these  sample  runs  indicate: 

GENERATION  1 

X  X  XXXXXXXXXX  X  X 

X  XX  XX  XX  X 

XXX  XX  XXX 

X  XXXXXX  X 

X  XX  X 

XX  XX 

X  XX  XXXXXX  XX  X 

X  XXX  X  X  XXX  X 
X  XXXXXX  X 

XXX  XXX 

XXXXXX  XX  XXXXXX 


GENERATION  2 

XX  XXXXXX  XX 
XX  X  XX  X  XX 

XX  XXX  XX  XXX  XX 

X  XX  X 

XX 

XXX  XX  XXX 

XXXXX  XXXXXX  xxxxx 
XX  XX  XX  XX 

XXXXXXXXXX 

X  XX  XX  XX  X 

X  XXX  XXX  X 


GENERATI ON 


X  XXXX  X 

XX  XX  XX 

XX  X  X  XX  X  X  XX 
XXXX 
X  XXXX  X 

XX  XX  XX 

X  XXXXXXXXXXXX  X 

XX  XX  XX  XX 

XX  XXXXXX  XX 

X  XX  XX  XX  X 
XX  XX 


GENERATI ON  9 


XX 

X  X  XX 

X  X 

X  XXXX  X 
XXXX 
X  XX  X 
X  XXX 

XX  XX  X 

XX 


XX 

XX 


XX 

X 

XX 


GENERATION  12 


XX  XX 

XX  XX 

XXX  XXX 
XXXXXXXXXX 
XX  XX  XX 
XXXXXX 
XXXX 
XXX  XXX 

X  X 
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GENERATION  24 


XX  XXX 

XX  XX 
XX  X 
XX  XX 
X  X 
X 

XX 
XX  XX 
X  X 

XX 


XXX  XX 

XX  XX 

X  XX 
XX  XX 

X  X 
X 

XX 

XX  XX 
X  X 

XX 


GENERATION  39 


XX 


XX 


X  X 

XXX 
XX  XXX 
X 

XXX 

XX 

X  X 
X  XX 
X  X 


XX  XX  X  X 

XXX 

X  X  XXX  XX 
XXX  XXX  X 

XX  XX  XXX 
XXXXXXXX  XX 
XX  XX  XX  X  X 
XX  XX  X 

X  X 


XX 


XX 


GENERATION  51 

XXX  X  X 

X  X  XX  XX 

X  X 
XXX 


GENERATI ON  62 


XXX 
X  X 
X  X 
XXX 


X 

X  X 

XX  XX 
X  XX 


X 

X  X 
XX  XX 

XX  X 
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Robot 

Simulations 


In  this  section  of  the  book  we  will  create  programs  that  perform  two 
simulations  at  once.  First,  the  programs  simulate  the  behavior  of  a 
robot  who  follows  a  series  of  commands  we  enter  before  the  program 
is  run.  Second,  the  programs  emulate  a  computer  language  inter¬ 
preter,  enabling  the  computer,  and  the  computer-controlled  robot,  to 
understand  instructions  we  give  it  in  a  Robot  Control  Language  RCL, 
developed  especially  for  this  book. 

In  mid  1983  Muse  Software,  of  Baltimore,  released  a  superb  ro¬ 
bot  simulation  program  under  the  name  of  Robotwar.  This  program 
allows  you  to  pre-program  a  number  of  robots  before  setting  them 
loose  on  a  computer-screen  battlefield  to  fight  it  out  for  victory.  Ro¬ 
botwar  allows  you  to  program  the  robots  in  a  language  which  is  es¬ 
sentially  English,  with  a  few  BASIC  commands  (such  as  GOTO  and 
GOSUB)  thrown  in. 

Our  program,  ROBOT  LOGO  and  POINT-DUTY  ROBOT  (which  is 
derived  from  the  first  program),  are  much  simplier  than  Robotwar, 
yet  still  produce  satisfying,  and  surprisingly  interesting,  results. 

We’ll  look  first  at  ROBOT  LOGO.  To  show  you  what  it  can  do,  and 
to  give  you  an  idea  of  what  an  RCL  listing  looks  like,  here’s  a  program 
that  gets  the  robot  to  trace  out  my  initials  on  the  screen,  leaving  a 
trail  as  it  goes: 
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GO  6,10 
FACE  90 
FORWARD  7 
GO  8,26 
FORWARD  5 
PR 

GO  6,16 
FACE  180 
FORWARD  6 
GO  6,26 
FORWARD  6 
GO  6,34 
FORWARD  6 
PRINTOUT 


This  is  the  result  of  running  that  program: 


XXX  X,  XXX  X  X 

X  XX 

X  X  X  X  X  X 

X  XX 

X  XX 

X  XX 


There  are  twelve  commands  in  RCL,  any  of  which,  included  in  a 
program,  can  be  abbreviated  to  its  first  two  letters.  The  RCL  program 
is  written  into  the  overall  BASIC  program,  as  a  set  of  up  to  twenty 
DATA  statements,  terminated  with  a  DATA  statement  that  just  con¬ 
tains  an  asterisk.  These  DATA  lines  are  kept  near  the  beginning  of 
the  program.  The  current  line  being  processed  appears  at  the  top  of 
the  screen  as  the  progam  is  running,  so  you  can  see  the  relevant  line, 
and  its  effect,  as  it  occurs. 

The  Language 

Here  is  the  complete  vocabulary  of  RCL: 

START  (abbreviated  to  ST)  Start  again. 

PRINTOUT  (PR)  Stop  the  robot  action,  clear  the  screen,  and  print 
out  the  current  situation  before  continuing  with  the  program 
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FORWARD  (FO)  This  is  followed  by  a  single  number,  and  it  tells  the 
robot  to  move  forward  the  number  of  “steps”  or  “spaces”  indi¬ 
cated  by  the  number  that  follows  the  command. 

BACK  (BA)  The  opposite,  naturally  enough,  of  FORWARD. 

TURN  (TU)  Followed  by  a  number,  this  command  turns  the  robot 
through  the  specified  number  of  degrees;  it  starts  a  run  at  zero 
degrees,  designated  as  facing  the  top  of  the  screen. 

HOME  (HO)  Returns  the  robot  to  the  center  of  the  screen,  facing  up¬ 
wards. 

CLEAN  (CL)  Cleans  the  previous  steps  away.  (The  action  of  this 
command,  like  the  others,  will  become  clear  once  you  use  it) 
GO  This  is  followed  by  two  numbers,  which  are  the  coordinates  to 
which  the  robot  moves  without  leaving  a  trail  between  its  old  po¬ 
sition  and  the  new  one. 

RANDOM  (RA)  Moves  the  robot  to  a  randomly  chosen  position  on 
the  screen;  acts  as  a  random  GO. 

REPEAT  (RE)  Followed  by  a  number,  this  command  allows  you  to 
cycle  through  a  section  of  the  program  a  specified  number  of 
times  before  continuing.  This  can  produce  some  fascinating  ef¬ 
fects,  as  you’ll  see  shortly. 

END  REPEAT  (EN)  Terminates  the  REPEAT  cycle;  all  the  com¬ 
mands  in  the  RCL  program  that  lie  between  REPEAT  and  END 
REPEAT  will  be  cycled  through  the  number  of  times  specified. 
FACE  (FA)  Followed  by  a  number,  this  turns  the  robot  to  face  an  ab¬ 
solute  angle,  with  the  top  of  the  screen  as  zero  degrees  (whereas 
TURN  is  relative  to  the  current  angle  the  robot  is  facing). 

This  short  set  of  commands  can  be  combined  to  produce  many 
startling  results.  If  you  are  at  all  familiar  with  the  Logo  programming 
language,  you  will  recognize  that  several  of  the  RCL  commands  are 
very  similar  to  the  turtle  graphic  commands  in  Logo.  Logo  was  de¬ 
veloped  under  Seymour  Papert,  with  Marvin  Minsky,  Harold  Abelson, 
and  Andrew  diSessa,  at  the  Massachusetts  Institute  of  Technology  by 
the  Artificial  Intelligence  Group.  It  was  designed  so  that  the  way  it 
was  used  by  programmers  would  be  closer  to  the  way  human  beings 
usually  solve  problems,  rather  than  being  heavily  influenced  by  how 
machines  run  programs.  Of  course,  our  RCL  is  pretty  limited  in  com¬ 
parison  with  Logo,  although  it  can  easily  be  extended  to  whatever 
level  of  complexity  you  like.  Studying  the  listing  will  show  you  how 
it  is  relatively  easy  to  write  a  program  that  interprets  another  pro¬ 
gram  written  in  a  language  you  have  created. 

Despite  its  limitations,  you  can  have  a  lot  of  fun  with  RCL — as 
the  following  sample  runs  indicate. 
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This  RCL  program  produces  octagons: 


OCTAGON 

GO  11,35 
REPEAT  8 
FORWARD  4 
TURN  45 
END  REPEAT 
PRINTOUT 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X  X  X  X  X 


X  X  X  X  X 


X 

X 

X 

X 

X 


You’ll  get  diamonds  with  this  one: 


DIAMONDS 


RANDOM 
FACE  45 
REPEAT  4 
FORWARD  2 
TURN  90 
END  REPEAT 
PRINTOUT 
START  AGAIN 


X 

X  X 

X  X 

X  X 

X  X 

X  X 

X 
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And  this  RCL  listing  creates  squares: 


SQUARE 
GO  11,35 
REPEAT  4 
FORWARD  6 
TURN  90 
END  REPEAT 
PRINTOUT 


XXX 

X 

X 

X 

X 

X 

XXX 


Descending  triangles  are  easy.  Note  that  we ’re  using  abbreviated 
commands  in  this  RCL  listing: 


X 

X  X 
X  X 
X  X  X 
X  X 
X  X 
X  X  X  X 

X  X 
X  X 
X  X  X  X 
X 
X 
X 


DESCENDING  TRIANGLES 

GO  5,5 
RE  6 
FO  3 
TU  135 
FO  3 
TU  135 
FO  3 
FA  90 
FO  3 
FA  180 
FO  3 
FA  0 
PR 
EN 

9 


X 


X 

XXX 
X  X 
X  X 
X  X  X  X 

X  X 
X  X 
X  X  X  X 
X 
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The  next  RCL  program  gets  our  robot  to  walk  down  stairs: 


X  X  X  X 
X 
X 

X  X  X  X 
X 
X 
X 

STAIRS 

GO  1,1 
RE  6 
FACE  90 
FORWARD  3 
FACE  180 
FORWARD  3 
END  REPEAT 
PRINTOUT 


X 

X 

X  X  X  X 
X 
X 

X  X  X  X 
X 
X 

X  X  X  X 
X 
X 


If  you’re  feeling  very  creative,  you  can  also  get  the  robot  to  trace 
out  pictures,  like  my  initials  earlier,  or  this  “side  view  of  a  table”: 

XXXXXXXXXXX 
X  X 

X  X 

X  X 

X  X 
X 

X  X 
X  X 

SIDE  VIEW  OF  TABLE  x  X 

GO  20,50 
FACE  315 
FORWARD  9 
FACE  90 
FORWARD  10 
FACE  225 
FORWARD  10 
PRINTOUT 
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Writing  a  Program 

As  I  said  earlier,  the  RCL  program  is  held  in  a  series  of  DATA 
statements  near  the  beginning  of  the  listing: 

100  REM  ROBOT  LOGO 

110  GOSUB  1730:REM  INITIALIZE 

120  GOTO  490 

130  REM  **************************** 

140  REM 
150  REM 
160  REM 
170  REM 
180  REM 
190  REM 
200  REM 
210  REM 
220  REM 
230  REM 
240  REM 
250  REM 
260  REM 
270  REM 
280  REM 
290  REM 
300  REM 
3  10  REM 
3  2  0  DATA  "  *  " 

330  REM  **************************** 


Here’s  a  listing  to  create  random  octagons.  We  can  learn  a  lot 
about  RCL  by  examining  it: 


octagon 

R A  NO  0M 
REPEAT  8 
FORWARD  2 
TURN  45 
EN0  REPEAT 
PRINTOUT 
START  AGAIN 


45 


It  begins  with  RANDOM,  which  moves  the  robot  to  a  randomly 
chosen  position  on  your  screen.  The  dimensions  of  the  screen  are 
included  within  the  program  (see  lines  1770  and  1780  in  the  listing 
in  the  next  chapter),  so  it  can  be  changed  easily  to  work  on  your  sys¬ 
tem  no  matter  what  its  screen  size. 

Once  the  robot  is  in  place,  the  computer  comes  to  the  line  RE¬ 
PEAT  8.  This  tells  it,  naturally  enough,  that  the  next  section  of  the 
program  (down  to  the  END  REPEAT)  is  to  be  run  through  eight  times. 
The  robot  moves  FOWARD  2,  then  TURNs  through  45  degrees.  Once 
it  has  done  this  eight  times,  it  has  traced  out  an  octagon,  which 
PRINTOUT  puts  on  the  screen  for  you  to  see: 


X  X 

X  X 

XXX 
XXX 
X  X 

X 

X 

X 

X  X 

XXX 


XXX 
X  X 

X  X  X  X  X 

X  XX  X 

XXX 
X  XX  X 

X  X  X  X  X 

X  X 

XXX 


XXX 

X  X  X  X  X 

X  X  X  •  X 

X  XX  X 

X  XX  X 

XXX  X 

X  X  X  X  X 

XXX 


X  X 


X  X 


X 

X 

X 


The  final  command,  START  AGAIN,  sends  action  back  to  the  first 
line  of  the  program,  to  select  a  new  random  robot  position.  RCL  au¬ 
tomatically  rejects  values  that  are  off  the  screen,  so  the  program  will 
not  crash  if  you  try  to  walk  off  the  edge  of  the  robot’s  world.  It  will 
simply  draw  the  required  material  “off  the  screen,”  as  it  were,  and 
then  continue  at  the  correct  place  when  it  returns  to  the  screen. 

From  the  examples  we’ve  looked  at,  you  can  see  that  the  robot 
can  be  made  to  do  a  great  deal.  The  biggest  limitation  is  in  the  TURN 
and  FACE  commands.  In  its  present  form,  it  can  only  work  in  incre- 
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ments  of  45  degrees,  and  will  change  any  angle  into  the  closest  mul¬ 
tiple  of  45  before  it  sends  the  robot  out  along  that  path  (see  lines  1040 
and  1620).  This  restriction  was  necessary  in  order  to  ensure  that,  de¬ 
spite  the  very  rough  resolution  of  the  grid  upon  which  the  robot 
walks,  a  reasonable  picture  was  still  drawn  by  the  robot’s  trail. 

The  full  ROBOT  LOGO  listing  is  presented  in  the  next  chapter. 
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The 

ROBOT  LOGO 
Listing 


You’re  sure  to  have  a  lot  of  fun  using  this  listing  to  get  the  robot  to 
follow  programs  you  have  devised.  Simply  place  them,  in  the  form  of 
DATA  “REPEAT  8”,  in  lines  140  though  to  310  (note  the  use  of  quo¬ 
tation  marks  around  the  RCL  statement).  Line  320,  where  you  see  a 
lone  asterisk  in  the  DATA  statement,  tells  the  program  that  it  has 
come  to  the  end  of  your  listing. 

I  got  my  program  listings  to  the  printer  by  running  the  program, 
then  entering  and  running  the  following  directly: 

FOR  Z=1  TO  20 : LPRINT  A$(Z):NEXT  Z 

In  its  present  form  the  program  can  cope  with  RCL  programs 
that  are  up  to  twenty  lines  long.  If  you  want  it  to  accept  longer  pro¬ 
grams,  simply  change  the  20  in  lines  530  and  1820  to  the  number  of 
commands  you  want  to  include.  Remember  that  you  need  to  allow  for 
a  command  slot  to  hold  the  asterisk  (end-of-program  flag)  line. 

Here,  then,  is  the  listing  so  that  you  can  run  your  own  robot: 

100  REM  ROBOT  LOGO 

110  GOSUB  1  7  3  0  : R  E  M  INITIALIZE 

120  GOTO  490 
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130  REM  ************ #*#*## a### a*#* *  * 
140  REM 

1  50  R  EM 
160  REM 
170  REM 
180  REM 
190  REM 

2  00  REM 
SI  0  REM 
S  2  0  REM 
330  REM 
240  REM 
250  REM 
260  REM 
270  REM 
280  REM 
290  REM 
300  REM 
310  REM 

320  DATA  " * " 

330  REM  **************************** 
340  REM  INT  UX.AX 

3  5  0  UX=I NT ( UX+ . 5 )  :  AX=I NT ( AX+ . 5 ) 

360  RETURN 

380  REM  PRINT  OUT 

390  CLSsREM  OR  LOCATE  1,1  OR  SIMILAR 

400  PRINT  "STEP"PSN"  >  "  ;  A  * ( P S N ]  : P R  I  N T 

410  FOR  J=1  TO  DEPTH 

420  FOR  K  =  1  TO  BREADTH 

430  PRINT  Z  $ ( J , K )  ; 

440  NEXT  K 
450  PRINT 
460  NEXT  J 
470  RETURN 

480  REM  **************************** 
490  REM  READ  PROGRAM 
500  C0UNT=C0UNT+1 
51 0  READ  A$ [ COUNT] 

520  IF  A$(COUNT)="*"  THEN  550 

5  30  IF  COUNT  <20  THEN  50D 

540  REM  **************************** 

550  REM  EXECUTE  PROGRAM 

5  60  P  S  N  =  0  :REM  PROGRAM  STEP  NUMBER 
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570 

PSN 

=  P  S  N  +  1 

580 

I  F 

P  S  N  =  2 1 

THEN 

5B0  : R  EM 

END 

590 

F  L  A  G  =  0 

600 

M  $  = 

A$ ( PSN) 

61  0 

I  F 

M  $  =  "  *  " 

THEN  1 

51  0  : R  EM 

END 

6  20 

N  $  = 

LEFT$[ M  $  ,  2  ) 

6  30 

I  F 

N  $  =  "  S  T  " 

THEN 

56  0  : R  EM 

START 

AGAIN 

640 

I  F 

N  $  =  "  P  R  " 

THEN 

GOSUB  3  B  0  : R  E  M 

PR  I  NT  0 

UT 

6  50 

I  F 

N  $  =  "  F  0  " 

THEN 

FL AG=1 

660 

I  F 

N  $  =  "  B  A  11 

THEN 

F  L  A  G  =  2 

670 

I  F 

N  $  =  "  T  U  ” 

THEN 

F  L  A  G  =  3 

680 

I  F 

N  $  =  "  H  0  " 

THEN 

F  LA  G=  4 

6  9  0 

I  F 

N  $  =  "  C  L  " 

THEN 

F  L A  G  =  5 

700 

I  F 

N  $  =  "  G  0  " 

THEN 

F  L A  G=  6 

71  0 

IF 

N  $  =  "  R  A  " 

THEN 

F  L  A  G  =  7 

7  20 

IF 

N  $  =  "  R  E  " 

THEN 

F  L A  G  =  B 

7  3  0 

I  F 

N  $  =  "  E  N  " 

THEN 

F  L A  G=  9 

7  40 

I  F 

N  $  =  "  F  A  " 

THEN 

F  L A  G=  1  0 

750 

ON 

FLAG  GOSUB  780,940,1000,1160,1220 

,1260,1400,1460,1530,1580 
760  GOTO  570 
770  REM 

7  B  0  REM  FORWARD 

7  90  M  $  =  M  I  D  $ [ M$,  4) 

8  00  IF  ASC(M$]=B7  THEN  M $  =  M  I  D $ ( M $ , 6  ) 

8  10  F  $  =  "  F  " 

B  2  0  NUM  =  VALtM$) 

B  3  0  FOR  E= 1  TO  NUM 

8  40  IF  UX<1  OR  U  X  >  D  EPTH  THEN  BBO 
B  5  0  IF  A  X  < 1  OR  AX>BREADTH  THEN  BBO 
B  6  0  Z$(UX,AX]=T$ 

B70  REM  DELETE  THE  '*2'  AT  END  OF  NEXT 
TWO  LINES  IF  BETTER  ON  YOUR  SYSTEM 
BBO  IF  F  $  = " F  "  THEN  U X= U X+ U P : A X  =  A X+ A C * 2 
890  IF  F$="B"  THEN  U X= U X- U P ; A X = A X - A C * 2 
900  GO  SUB  3  4ti 
910  NEXT  E 
920  RETURN 

930  REM  ***#*****##****##**######### 
940  REM  BACK 

950  M$=MID$(M$,4) 

960  IF  ASC(M$)=75  THEN  M $  =  M  I  D $ ( M $  ,  3  } 

F  $  =  "  B  " 


970 


980  GOT  0  82  0 

990  REM  ***************** ********** * 

1 000  REM  TURN 

1010  M  $  =  M  I  D  $ ( M  $ , 4 ) 

1020  IF  ASC(M$)=78  THEN  N$=MID$[Mil3] 

1  0  30  N  U  M  =  V  A  L  f M$ ] 

1  040  Y=  I  NT [  [  NUM  +  1 7 . 5 ) /45 J 
1  0  50  IF  Y  =  0  OR  Y=  8  THEN  RETURN 
1060  FOR  J=1  TO  Y 

1  070  IF  UP  =  -1  ANO  A  C  =  0  THEN  AC  =  1sG0T0  11 
3  0 

1  08  0  IF  UP  =  0  ANO  A  C  =  1  THEN  UP=1:G0T0  113 
0 

1090  IF  UP=1  ANO  AC=0  THEN  AC=-1sG0T0  11 
30 

1100  IF  UP  =  0  ANO  AC=-1  THEN  UP=-1:G0T0  1 
1  30 

1110  IF  UP=-1  AND  AC  =  -1  OR  UP=1  AND  AC=1 
THEN  AC  =  0  :  G  OT  0  1130 

1120  IF  UP  =  -1  AND  A  C  =  1  OR  UP  =  1  ANO  AC  =  -1 
THEN  UP=0 
1130  NEXT  J 
1140  RETURN 

1 1 60  REM  HOME 

1170  AX=I NT ( t BREADTH+ . 5 J / 2 ] 

1180  UX=INT( ( 0EPTH+.5J/2) 

1190  UP=-1  : AC  =  0  :  R EM  FACES  UP 

1 200  RETURN 

1220  REM  CLEAN 

1 230  GOSUB  1870 
1240  RETURN 

1250  REM  **************************** 
1260  REM  GO  X, Y 

1270  P=0 

1280  P=P+1 

1290  IF  M  I  0  $  (  M  $  ,  P  ,  1  ]  =  "  ,  "  THEN  1320 
1300  IF  P  <  L  E  N ( M  $ )  THEN  1280 
1310  RETURN:  REM  ERROR 
1320  UX=VAL( MID$( M$ ,4, P-1 ) ] 

1330  A  X  =  V  A  L  ( RIGHTM  M$, LENt  M$]-P)  ) 

1340  GOSUB  340 

1  350  IF  UX<1  OR  UX  >0  EPTH  THEN  13B0 
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1360 
1370 
1  3B0 
1390 
1  400 
1  41  0 
1  420 
1  430 
1  440 
1450 
1  460 
1  470 
1  480 
1  490 
1500 
1510 
1520 
1530 
1  540 
1  550 
1560 
1  570 
1580 
1590 
1600 
1610 
1620 

16  30 
1  640 
1650 
1660 
1670 
1  6B0 
1690 
1  700 
1710 
1720 
1730 

17  40 
17  50 
1760 

1770 
1  7B  0 


IF  A  C  <  1  OR  AOBREADTH  THEN  13B0 
Z»(UX,AX]=R$ 

RETURN 

REM  **************************** 
REM  RANDOM 

AX=INT(RND[1 ]*BREADTH) 

U  X= I N  T  l R  N  D  [  1  J  *  D  EPTH ) 

Zt[UX,AX]=R$ 

RETURN 

HEM  *****%********************** 

REM  REPEAT 

M$=MID$[M$,4] 

IF  AS  C (  H  $ ) =6  9  THEN  M $=M  I  D $  [  M *  ,  5  ) 
REC  0UNT  =  VAL  t  M  $ ) 

MARKER=PSN 

RETURN 

REM  ******************>**#*  *  *  *  *  #  * 
REM  END  REPEAT 

REC0UNT=REC0UNT-1 
IF  REC0UNT>0  THEN  PSN=MARKER 
RETURN 

REM  **************************** 
REM  FACE 

M$=MID$[M$,4) 

IF  ASC(M$)=69  THEN  M $  =  M  I  D $ [ M $ , 3 ) 
N  U  M  =  V  A  L  (  M  $  ) 

Y=INT( (NUM+17.5)/45)*45 

IF  Y  =  0  OR  Y  =  3  6  0  THEN  UP  =  -1sAC  =  0 

I F  Y  =  4 5  THEN  UP=-1  s  AC  =  1 

IF  Y=  9  0  THEN  UP  =  0:AC=1 

IF  Y= 1 3  5  THEN  UP  =  1sAC  =  1 

IF  Y= 1 8  0  THEN  UP=1sAC  =  0 

IF  Y  =  2  2  5  THEN  UP=1:AC  =  -1 

IF  Y  =  2  7  0  THEN  UP  =  0sAC  =  -1 

IF  Y  =  3 1 5  THEN  UP  =  -1:AC  =  -1 

RETURN 

rEM  **************************** 

REM  INITIALIZE 

CLS 

RANDOMIZE  V A L [ R I G H T $ t T I M E $ p 2 ] ] 
REM  ADJUST  NEXT  TWO  LINES  FOR 
BEST  RESULTS  ON  YOUR  SYSTEM 
BR EADTH=BO : REM  CHARACTERS  ACROSS 
DEPTH=24:REM  CHARACTERS  DOWN 


1790  BREADTH=BREADTH-1 
1800  DEPTH=DEPTH-3 

1810  UP  =  -1  :  AC  =  0  ;  R EM  STARTS  FACING  UP 
1  3  2  0  0  I  M  A  $ ( 2  0  ]  sREM  FOR  ROBOT  PROGRAM 

1  830  DIM  Z * [ D EPTH , B R EADTHl  :  R EM  DISPLAY 
1  8  4  0  T$="X"  ;REM  PUT  SYMBOL  HERE  YOU 

WANT  TO  USE  FOR  ROBOT'S  TRAIL 
1850  AX=0sUX=0 

1860  REM  FILL  ARRAY  WITH  SPACES 
1870  FOR  J=1  TO  DEPTH 
1880  FOR  K=1  TO  BREADTH 
1890  Z$tJ,K]="  " 

1900  NEXT  K 
1910  NEXT  J 
1 920  RETURN 


The  Point-Duty 
Safest 


While  ROBOT  LOGO  is  interesting  as  far  as  it  goes,  once  I  had  used 
it  for  a  while,  I  felt  that  it  really  didn’t  go  far  enough.  The  program  was 
developed,  like  the  others  in  this  book,  so  they  would  run  on  just 
about  any  computer  furnished  with  BASIC,  and  therefore  used  an  ar¬ 
ray  to  keep  track  of  the  robot’s  movement  and  current  position. 

The  POINT-DUTY  ROBOT  program  that  follows  makes  use  of  the 
PSET  command  included  in  the  BASIC  on  my  IBM  PC  to  draw  dots  at 
a  much  finer  resolution  than  the  first  program — 320  by  200,  rather 
than  80  by  24.  Using  a  machine-specific  command  like  PSET,  of 
course  means  that  if  a  listing  of  the  program  for  your  computer  is  not 
included  in  this  book,  you  may  have  a  little  more  trouble  than  usual 
in  getting  the  program  to  run.  However,  the  results  are  superb,  and 
the  effort  involved  in  getting  the  program  to  run  is  certainly  worth  it 
If  your  computer  doesn’t  use  PSET  to  plot  a  point  on  the  screen, 
check  your  computer’s  BASIC  manual  for  a  similar  command,  such 
as  SET,  POINT,  PLOT,  that  you  can  use  as  a  replacement 

Here  is  the  POINT-DUTY  ROBOT  listing,  which  is  based  on  the 
ROBOT  LOGO  program  in  the  previous  chapter.  It  has  not  been  re¬ 
numbered,  so  you  should  find  it  easy  to  modify  the  first  listing  into 
the  second  one.  The  RCL  commands  are  the  same,  except  that  PRINT¬ 
OUT  is  no  longer  supported.  It  is  not  needed,  as  the  program  prints 
out  automatically  as  it  is  running. 

Note  that  line  1735  in  the  listing  that  follows  is  an  IBM-specific 
command  that  moves  the  computer  into  graphics  mode.  You  will 


need  to  drop  or  convert  this  line  if  you’re  running  the  program 
different  computer. 


100  REM  POINT-DUTY  ROBOT 
110  GOSUB  1  7  3  0  :  R  E  M  INITIALIZE 
120  GOTO  490 

1  3  0  REM  **************************** 
140  REM 

15  0  REM 
160  R  EM 
170  REM 
180  REM 
190  REM 
200  REM 
210  REM 

2  2  0  R  EM 
230  REM 
240  REM 
250  REM 
260  REM 
270  REM 
280  REM 
290  REM 
300  REM 
310  REM 

320  DATA  " * " 

330  REM  **************************** 

340  REM  INT  UX.AX 

350  UX=I NT ( UX+ . 5 ) s AX=I NT ( AX+ . 5 1 

360  RETURN 

480  REM  **************************** 
490  REM  READ  PROGRAM 
500  C 0UNT=C OUNT+1 
51  0  READ  A  $ ( COUNT) 

520  IF  A$  (COUNT)  =*'«"'  THEN  550 

5  30  IF  CDUNT  <20  THEN  500 

540  REM  **************************** 

550  REM  EXECUTE  PROGRAM 

560  PSN=0 : REM  PROGRAM  STEP  NUMBER 

570  PSN=PSN+1 

580  IF  P  S  N  =  2 1  THEN  5  8  0  : R  E  M  END 
590  F  L  A  G  =  0 
600  M  $  =  A  $ (PSN) 

610  IF  M  $  =  "  *  11  THEN  61  0  :  REH  END 


620  N*=LEFT*(H*,2) 

630  IF  N  $  =  "  S  T  "  THEN  5  6  0  :  R  E  M  START  AGAIN 

650  IF  N  $  =  " F  0  "  THEN  F  L  A  G  =  1 

66  0  IF  N  $  =  " B  A  "  THEN  F  L A  G  =  2 

670  IF  N  S  =  "  T  U  "  THEN  F  L  A  G  =  3 

680  IF  N  $  =  " H  0 "  THEN  F  L  A  G  =  4 

700  IF  N$="G0"  THEN  F  L A  G  =  5 

710  IF  N  $  =  " R  A  "  THEN  F  LA  G  =  6 

720  IF  Nt  =  "RE"  THEN  F  L  A  G  =  7 

730  IF  N  $  =  " E  N “  THEN  F  L  A  G  =  8 

740  IF  N$="FA"  THEN  FLAG=9 

750  ON  FLAG  GOSUB  780,940,1000,1160,1260 

,1400,1460,1530,1580 

760  GOTO  570 

770  REM  **************************** 

780  REM  FORWARD 

790  MS=MID«(M$,4] 

800  IF  ASC(M$)=87  THEN  M$=MID$(M$,6) 

8  1  0  F  *  =  "  F  " 

8  20  NUM  =  VAL(M  $) 

830  FOR  E=1  TO  NUM 

840  IF  UX<1  OR  UX>DEPTH  THEN  880 
850  IF  A  X  < 1  OR  AX  >BREAD  T  H  THEN  880 
860  PRESET  (AX,UX]:PSET  {AX,UX) 

880  IF  F$="F"  THEN  U X  =  UX  +  U P  :  A X  =  A X  +  A  C 
890  IF  F  $  =  " 8  "  THEN  UX=UX-UP:AX=AX-AC 
900  GOSUB  340 
910  NEXT  E 
920  RETURN 

930  REM  **************************** 

940  R  EM  BACK 

950  M$sMID$[M$,4) 

960  IF  ASC(M‘$J=75  THEN  M  $  =M  I  0  *  (  M  S  ,  3  ) 

9  7  0  F  $  =  "  B  " 

980  GOTO  820 

9  9  D  REM  **************************** 

1000  REM  TURN 

1010  M$=MID8(MS,4) 

1  020  IF  ASC(M$)=78  THEN  M  $  =  M  I  D  *  (  M  $  ,  3  ) 
1030  N  U  M  =  V  A L ( M  J ) 

1  040  Y  =  I N  T (  [NUM  +  1  1  .  2  5  ) / 2  2 . 5  ] 

1  0  50  IF  Y  =  0  OR  Y  =  1  6  THEN  RETURN 
1060  FOR  J=1  TD  Y 

1  0  6  5  IF  UP  =  -  2  AND  AC  =  0  OR  UP  =  2  AND  AC  =  2 
THEN  A  C  =  1  s  GOTO  1 1  30 
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1070  IF  UP=-2  AND  A  C  =  1  THEN  AC=2:G0T0  11 

3  0 

1  0  7  5  IF  U  P  =  - 2  AND  AC  =  2  OR  UP  =  0  AND  AC  =  -2 
THEN  U  P  =  - 1  S  GOTO  1130 

1  0  8  0  IF  U  P  =  —  1  AND  A  C  =  2  DR'UP=1  AND  AC  =  -2 
THEN  UP=0 : GOTO  1130 

1085  IF  U  P  =  0  AND  AC  =  2  OR  UP  =  2  AND  AC  =  -2 
THEN  UP=1 : GOTO  1130 

1  0  9  0  IF  U  P  =  1  ANO  A  C  =  2  THEN  UP  =  2sG0T0  113 
0 

1095  IF  U  P  =  2  AND  AC  =  1  THEN  AC  =  0:  GOTO  113 
0 

1100  IF  U  P  =  2  AND  A  C  =  0  THEN  AC=-1:G0T0  11 
3  0 

1105  IF  U  P  =  2  AND  AC  =  -1  THEN  AC  =  -2;G0T0  1 
1  3  0 

1110  IF  U  P  =  - 1  AND  A  C  =  - 2  THEN  UP=-2iG0T0 
113  0 

1115  IF  U  P  =  —  2  AND  A  C  =  - 2  THEN  AC=-1  :  GOTO 
113  0 

1120  IF  U  P  =  - 2  AND  AC  =  -1  THEN  AC  =  0 
1130  NEXT  J 
1140  RETURN 

1150  REM  **************************** 

1 1 60  REM  HOME 

1170  AX  =  INT(  [BREADTH+. 51/21 
1180  UX  =  I NT (  ( D EPTH  + .  5 ] /2 ] 

1190  UP=-2 i AC=0 s R EM  FACES  UP 
1 200  RETURN 

1210  REM  **************************** 
1220  REM  CLEAN 

1230  GOSUB  1  B  7  0 
1 240  RETURN 

1250  REM  **************************** 

1  2  6  0  REM  GO  X,  Y 

1  270  P  =  0 
1 280  P=P+1 

1290  IF  MID$(M$,P,1]=",“  THEN  1320 
1  300  IF  P  <  L  E  N ( M  S  )  THEN  1280 
1310  RETURN:REM  ERROR 
1  320  UX  =  VA L ( MI D $  ( M $  ,  4 , P-1  )  ) 

1  3  3  D  AX  =  VAL(RIGHTI(M$fLEN[M$)-P]  ] 

1340  GOSUB  340 

1350  IF  UX<1  OR  UX>DEPTH  THEN  1380 
136  0  IF  A  C  <  1  OR  AOBREADTH  THEN  13B0 
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1370  PSET  [  A X , UX  ) 

1380  RETURN 

1390  REM  **************************** 
1400  REM  RANDOM 

1410  AX=  I  NT [ R NO [ 1  J 'BREADTH ) 

1  420  UX  =  I  NT [ RND ( 1  )  *0EPTH ) 

1 430  PSET [ AX, UX) 

1440  RETURN 

1450  REM  **************************** 
1460  REM  REPEAT 

1470  M  S  =  M  ID  $  (  M  S  ,  4  ) 

1480  IF  ASC(M$)=69  THEN  M $ = M I D $ [ M $ , 5 ) 
1  4  9  D  RECOUNT=VAL(M$) 

1  500  MARK  E  R  =  P  S  N 
1510  RETURN 

1520  REM  **************************** 
1530  REM  END  REPEAT 

1540  RECOUNT=RECOUNT-1 
1  55  0  IF  R  EC  OU  NT  >0  THEN  PSN  =  MARKER 
1560  RETURN 

1570  REM  **************************** 
1580  REM  FACE 

1  5  90  M  $  =  M I D $  ( M  t  , 4) 

1  6  00  IF  ASC[M$)=69  THEN  M $  =  M  I  D $  (  M $  ,  3  ) 
1610  N  U  M  =  V  A  L  ( M  $  ) 

1620  Y  =  INT(  [NUM  +  11  ,25]/22.5)*22.5 
1  6  3  0  IF  Y  =  0  OR  Y  =  3  6  0  THEN  UP  =  -2:AC  =  0 
1  6  3  5  IF  Y  =  2  2  .  5  THEN  UP=-2sAC  =  1 
1  6  40  IF  Y  =  4  5  THEN  UP=-2sAC  =  2 
1  6  45  IF  Y  =  6  7  .  5  THEN  UP  =  -1  : AC  =  2 
1  650  IF  Y  =  9  0  THEN  UP  =  0:AC=2 
1  6  55  IF  Y  =  1  1  2  .  5  THEN  UP=1sAC  =  2 
1  6  6  0  IF  Y  =  1 3  5  THEN  UP  =  2:AC  =  2 
1  6  6  5  IF  Y  =  1  5  7  .  5  THEN  UP  =  2:AC  =  1 
1  6  7  0  IF  Y  =  1 B  0  THEN  UP=2:AC=0 
1  6  7  5  IF  Y  =  2  0  2  ,  5  THEN  UP  =  2:AC  =  -1 
1  6  8  0  IF  Y  =  2  2  5  THEN  UP  =  2:AC  =  -2 
1  685  IF  Y  =  2  4  7  „  5  THEN  UP  =  1:AC  =  -2 
1  6  90  IF  Y  =  2  7  0  THEN  UP  =  0:AC  =  -2 
1695  IF  Y  =  2  9  2  ,  5  THEN  UP  =  -1:AC  =  -2 
1700  IF  Y  =  3  1  5  THEN  UP=-2.'AC  =  -2 
1  70  5  IF  Y  =  3  3  7  .  5  THEN  UP  =  -2iAC  =  -1 
1710  RETURN 

1720  REM  **************************** 
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1730  REM  INITIALIZE 

1735  SCREEN  IsREM  THIS  IS  AN 

IBM-SPECIFIC  GRAPHICS  COMMAND 
1  740  C  LS 

1750  RANDOMIZE  VA L ( R I GHT * ( T I M E $ , 2 ) ] 
1760  REM  ADJUST  NEXT  TWO  LINES  FOR 
BEST  RESULTS  ON  YOUR  SYSTEM 
1770  BREADTH=320 : REM  CHARACTERS  ACROSS 
1780  DEPTH=200:REM  CHARACTERS  DOWN 
1790  BREADTH=BREADTH— 1 
1  800  D  EPTH  =  D  EPTH-3 

1810  UP  =  -2 s AC  =  0  :  R EM  STARTS  FACING  UP 
1820  DIM  A$(20]sREM  FOR  ROBOT  PROGRAM 
1 920  RETURN 


There  are  many  enjoyable  programs  you  can  write  for  your  little 
robot  to  follow.  As  you  can  see  from  the  FACE  and  TURN  sections, 
the  program  supports  angle  changes  of  17.5  degrees,  rather  than  the 
coarser  45  degrees  that  was  all  the  ROBOT  LOGO  could  cope  with. 

When  you  have  POINT-DUTY  ROBOT  up  and  running,  you  might 
like  to  try  the  following  programs. 

The  first  one  is  GLASS  MAGNOLIA: 

GO  100,170 
REPEAT  5 
FORWARD  13 
TURN  72 
END  REPEAT 
START  AGAIN 


Adding  a  single,  additional  line  to  that  program  produces 
CHURCH  WINDOW: 

GO  100,170 
REPEAT  4 
FORWARD  13 
TURN  90 
END  REPEAT 
TURN  22.5 
START  AGAIN 


HAMPTON  COURT  ROSE  is  an  effective  demonstration  of  the  lit¬ 
tle  robot  in  action: 


GO  1 DD , 1 70 
REPEAT  2 
FORWARD  3 
TURN  22.5 
FORWARD  6 
TURN  22.5 
FORWARD  9 
TURN  22.5 
F  DRWARD  12 
TURN  22.5 
F  DRWARD  12 
TURN  22.5 
FORWARD  7 
TURN  90 
END  REPEAT 
START  AGAIN 


RCL  continues  to  amaze  with  SPIRAL  NEBULA: 


GO  1 OD , 1 70 
FORWARD  2 
TURN  22.5 
FORWARD  5 
TURN  22.5 
FDRWARD  8 
TURN  22.5 
FDRWARD  11 
TURN  22.5 
FORWARD  15 
TURN  22.5 
FORWARD  7 


START  AGAIN 
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CRAZY  CRITTER  decorates  your  screen  with  something  sur¬ 
prising: 

GO  100,170. 

REPEAT  2 
FORWARD  10 
TURN  90 
FORWARD  12 
END  REPEAT 
TURN  22.5 
START  AGAIN 


And  this  is  SIGNALMAN  FREUD  (who  worked  for  the  Vienna  Rail¬ 
road  Company): 

GO  100,170 
TURN  135 
FORWARD  25 
REPEAT  4 
FORWARD  1  0 
TURN  90 
END  REPEAT 
START  AGAIN 


In  our  next  program,  BUBBLES,  we  use  two  REPEAT  loops.  Note 
these  are  not,  and  cannot  he,  nested,  as  RCL  does  not  support  nested 
loops: 


RANDOM 
REPEAT  1 6 
FORWARD  2 
TURN  25 
END  REPEAT 
RANDOM 
REPEAT  16 
FORWARD  1 
TURN  25 
END  REPEAT 
START  AGAIN 
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Removing  the  second  RANDOM  line  from  BUBBLES  turns  the 
program  into  one  I  have  called  THE  EYES  ARE  WATCHING  YOU: 

RAND  DM 
REPEAT  16 
FDRWARD  2 
TURN  25 
END  REPEAT 
REPEAT  16 
FORWARD  1 
TURN  25 
END  REPEAT 
START  AGAIN 


From  that  we  move  to  HAND  ME  DOWN  MY  DANCING  CANE: 


RANDOM 
FORWARD  15 
TURN  315 
BACK  5 
TURN  22  .5 
START  AGAIN 


And,  finally,  ONE-WAY  STREET: 

RAND  OM 
FORWARD  15 
TURN  315 
BACK  6 
FORWARD  6 
TURN  270 
FORWARD  6 
START  AGAIN 
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1 0 


Simulating 

intelligence 


An  enormous  amount  of  energy  is  now  being  spent  to  get  computers 
to  behave  in  ways  that  appear  intelligent.  Artificial  Intelligence  (AI) 
research  has  looked  into  many  of  the  simple  human  exhibitions  of 
intelligence,  such  as  game  playing.  It  has  produced  some  highly  cred¬ 
itable  results — as  shown  by  the  current  generation  of  chess  ma¬ 
chines.  Expert  systems,  in  which  the  computer  uses  the  encoded 
expertise  of  human  specialists  to  reach  decisions  and  give  advice,  is 
another  particularly  fruitful  area  of  AI  development.  Expert  systems 
have  been  developed  in  a  wide  range  of  disciplines.  They  can  now  di¬ 
agnose  certain  classes  of  diseases,  assist  in  chemical  synthesis,  and 
help  in  the  search  for  mineral  deposits.  The  scope  of  AI  research  has 
broadened  over  the  last  twenty  years  and  now  also  covers  such  topics 
as  perception  (vision  and  speech)  and  the  understanding  of  human 
(natural)  languages. 

In  this  chapter,  we’ll  concentrate  on  the  game-playing  side  of  ar¬ 
tificial  intelligence.  The  simulation  we’ll  develop  plays  a  very  good 
game  of  CONNECT  FOUR,  in  which  two  players  take  turns  placing 
pieces  in  the  lowest  available  position  in  the  columns  on  a  game 
board,  trying  to  be  the  first  to  get  four  of  their  pieces  to  form  a  line  in 
any  direction. 

It  is  interesting  to  note  that  computer  programs  that  appear  to 
display  intelligence  often  work  quite  differently  from  the  way  human 
beings  approach  the  same  problems.  Typically,  computer  systems 
analyze  the  tens  of  thousands  of  possible  moves,  ranking  them  hier- 
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achically,  and  choosing  the  best  possible  next  move.  Human  players, 
on  the  other  hand,  appear  to  make  their  decisions  almost  intuitively. 
Human  experts,  although  they  may  use  some  or  all  of  the  same  raw 
data  as  an  expert  system  working  in  the  same  field,  do  not  examine 
every  piece  of  information  that  could  possibly  be  relevant  before  de¬ 
ciding  which  of  the  potential  outcomes  has  the  highest  probability  of 
being  correct 

Similarly,  in  our  artificial  intelligence  simulation  program,  the 
computer  works  out  its  moves  in  a  manner  that  is  quite  alien  to  our 
own  thinking.  Despite  this,  it  plays  extremely  well,  and  will  prove  a 
difficult,  almost  impossible,  opponent  to  defeat  It  assigns  a  value  to 
each  possible  move,  and  then  evaluates  each  of  these  moves  in  terms 
of  whether  this  will  help  win  the  game.  It  then  selects  the  move  with 
the  best  potential. 

When  you’re  making  your  own  moves,  you’re  far  more  likely  to 
just  look  at  the  board,  check  whether  there  is  any  danger  of  the  com¬ 
puter  completing  a  row  of  four,  and  if  so,  attempt  to  block  it,  or  select 
a  move  that  “feels”  as  though  it  could  help  lead  you  to  victory. 

The  lesson  is  clear.  When  writing  your  own  artificial  intelligence 
programs,  look  for  the  end  result  you  want  to  achieve,  rather  than 
trying  to  emulate  your  own  thinking  processes. 

Let’s  look  at  our  CONNECT  FOUR  program  in  action.  You  enter 
your  move  as  a  number  between  one  and  eight,  and  the  computer  au¬ 
tomatically  places  your  piece  (a  small  letter  “o”)  at  the  lowest  avail¬ 
able  position  in  the  row  designated  by  the  number  you  have  entered. 
The  computer  pieces  are  represented  by  the  letter  “M”: 


18345678 

YOUR  HOVE.  .  . 
7  4 
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..Mo.... 

1 2345678 


YOUR  MOVE... 
?  6 


.  .  MoM  o  .  . 
1 2345678 


YOUR  MOVE... 
?  5 


.  .  .Mo  .  .  . 
.  .  MoM  o  .  . 
1 2345678 


YOUR  MOVE  .  .  . 
?  6 
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. M  „  . 

.  ..Moo.. 
.  .  M  oM  o  .  . 
12345678 


YOUR  MOVE... 
?  7 


.  .  .  MM  .  . 
..Moo.. 
. M  oM  o  o  . 
2345678 


YOUR  MOVE  .  .  . 
?  7 


.  .  .  M  . 
..MM. 
.  M  o  o  o 
M  oM  o  o 


12345678 


HAVE  WON 


The  victory  here  is  along  the  diagonal  from  the  top  of  column  six 
down  to  the  bottom  of  column  three. 

Enter  this  program  to  start  your  our  experiments  in  artificial  in¬ 
telligence: 
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10  REM  CONNECT  FOUR 
20  REM  A „  W.  PEARSON 
30  CLS 
40  PRINT 
50  PRINT 

60  PRINT  "CONNECT  FOUR" 

70  PRINT 

80  PRINT  "ENTER  YOUR  MOVE  AS  A  NUMBER  BE 
TWEEN " 

90  PRINT  "1  AND  B,  ENTER  0  FOR  A  NEW  GAM 

E  .  .  .  " 

100  FOR  F  =  1  TO  IOOOsNEXT  F 
110  DIM  A$ 110,10], B(10, 2] 

120  F  L  A  G  =  0 

130  REM  CHANGE  NEXT  LINE  FOR  YOUR  OWN 
CHOICE  OF  SYMBOLS  {  C  $  -  C  0  M  P  U  T  E  R  ) 

140  C  $=  »  M  "  s  H  $= " o " ! R  EM  M  FOR  MACHINE! 

150  FOR  F=1  TO  8 
160  B ( F , 1 ) =6 
170  NEXT  F 
180  FOR  F= 1  TO  6 
190  FOR  G  =  1  TO  8 
200  A$[F,G)="." 

210  NEXT  G 
220  NEXT  F 

23D  REM  a#*# #*#** ##****#**# # # *** * 

240  REM  ACCEPT  HUMAN  MOVE 
250  GOSUB  430 

260  PRINTsPRINT  "YOUR  MOVE..." 

270  INPUT  A 

280  IF  A  =  0  THEN  RUN 

290  IF  A  < 1  OR  A  >  8  THEN  270 

300  L=  0 

310  IF  A  $ [ L+1  , A )  < >" . "  OR  L  =  6  THEN  340 

320  L  =  L  +  1 

330  GOTO  310 

340  IF  L=  0  THEN  270 

350  A$ [ L, A]=H$ 

360  B ( A  ,  1  ]  =  B ( A , 1  )-1 
370  GOSUB  430 
380  GOSUB  560 
390  GOSUB  430 
400  GOTO  260 

410  REM  ************************* 
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420  REM  PRINT  B0AR0 
430  CLS 

440  FOR  F= 1  TO  6 
450  FOR  G=1  TO  8 
460  PRINT  A$[F,G) ; 

470  NEXT  G 
480  PRINT 
490  NEXT  F 

500  PRINT  "  1  234567B" 

51 0  PRINT 

520  IF  F  L  A  G  =  1  THEN  PRINT  "I  HAVE  W 0 N  "  : E N 
0 

530  RETURN 

550  REM  COMPUTER  MOVES 
560  PRINT  "MY  MOVE..." 

5  70  M  V  =  0 

580  FOR  F= 1  TO  8 

590  B ( F , 2 ) =0 

600  NEXT  F 

610  FOR  F  =  1  TO  8 

620  FOR  X=-1  TO  1 

630  FOR  Y=-1  TO  1 

640  IF  B ( F , 1  ) =  0  THEN  680 

6  50  IF  A$ ( B (  F,  1  )+X, F  +  Y]  =  "  "  OR  A$(b[F,1)+ 
X , F  +  Y )  =  " .  "  THEN  6  B  0 

660  IF  A$ ( B ( F , 1 ) +Xf F+Y] =H $  THEN  GOSUB  B1 
0 

670  IF  A$ t B [ F , 1 ) +Xf F+Y) =C$  THEN  GOSUB  91 
0 

680  NEXT  Y 
690  NEXT  X 
700  NEXT  F 
710  P  =  0 

720  FOR  F=1  TO  B 

730  IF  8 ( F , 2 ] >P  THEN  P=B[F,2):N=F 

740  NEXT  F 

750  A$ [ B [ N , 1 ) , N) =C$ 

760  B  t  N , 1  )  =B  [  N  ,  1  ) -1 
770  N=0 

7  B  0  P  =  0 
790  RETURN 

BOO  REM  #*******#******#**#*#**#* 

810  M  V=  2 
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B20  Ml =  M V 

830  IF  A$(B(F,1 )+(X*2] , F+(Y*2] )=H$  THEN 
M V=M V+1 0 

B  4  0  IF  A$( B( F,1  J-X, F-Y)=H$  THEN  MV=MV  +  20 
850  IF  MVOM1+10  THEN  870 

860  IF  A$ ( 8 C F, 1 J + ( X*3 ) , F+( Y*3 ) ) =H $  THEN 
M V=M V+1 000 

870  B(  F,2  )  =  8  ( Ff2)+MV 
BBO  Ml =0 
890  RETURN 

900  REM  ************************* 

910  M  V -  2 
920  M 1 =  M  V 

930  IF  A$ { B ( F,1 )+ t X*2 ] , F+ ( Y*2 ) ] =C$  THEN 
M V  =  MV+  9 

940  IF  A$ ( B [ F , 1 ) -X, F-Y J =C$  THEN  MV=MV+20 
950  IF  MVOM1+9  THEN  970 

9  60  IF  A  $ ( 8 [  F,1  )  +  (  X  *3  )  ,F+(Y*3)  )=C$  THEN 
MV=MV  +  2  0  0  0  : F  LAG  =  1 
970  B(F,2)=B[F,2) +  M  V 

980  RETURN 
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The  Quevedo 
Chess  Machine 


The  first  recorded  attempt  to  produce  a  machine  that  would  play 
chess  was  made  in  Spain  in  1890.  The  scientist  Torres  y  Quevedo  pro¬ 
duced  a  little  device  that  would  play  the  end  game  of  a  king  and  rook 
against  a  king,  taking  the  side  with  the  rook.  The  machine  was  always 
able  to  force  mate. 

After  reading  about  Quevedo’s  machine  in  David  Levy’s  fasci¬ 
nating  book  Chess  and  Computers  (Computer  Science  Press,  Inc., 
Potomac,  Maryland;  1976),  I  decided  to  try  and  write  a  program  that 
would  simulate  the  machine’s  behavior.  The  machine  can  move  in 
one  of  six  possible  ways.  This  program  reports  which  of  the  six  moves 
it  has  used  on  each  turn. 

You’ll  find  that  the  computer  makes  a  rapid  assessment  of  the 
situation.  Here  is  an  example  of  the  program  in  action.  You  play  the 
single  king  (the  “$”  sign).  The  computer’s  king  is  the  “K”  and  its  rook 
is  the  “R”: 


I  USED  HOVE  1 


ABCDEFGH 


8  .  8 

7  .  7 

6  .  6 

5  .R.  .K  .  .  .  5 

4  . 4 

3  $..  . _  3 

2  .  2 

1  .  1 


ABCDEFGH 

>>  MOVE  TO  (LETTER,  NO.]?  A2 


I  USED  HOVE  1 

ABCDEFGH 


B  .  B 

7  .  . .  7 

6  .  6 

5  R . . .K  .  .  .  5 

4  . 4 

3  .  3 

2  $ .  2 

1  .  1 


ABCDEFGH 

>>  MOVE  TO  (LETTER,  NO.)?  B2 
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I  USED  MOVE  1 


ABCDEFGH 


8  .  8 


8  .... _ 6 

5  .R..K...  5 

4  .  . .  4 

3  .... _  3 

2  .  * .  2 

1  .  1 


ABCDEFGH 

>>  MOVE  TO  (LETTER,  NO.J?  C2 


I  USED  MOVE  1 

ABCOEFGH 


7  .  7 

6  .  6 

5  . .R .K  .  .  .  5 


3  .  3 

2  .  .  * .  2 

1  . .  1 


ABCDEFGH 

>>  MOVE  TO  (LETTER,  NO.]?  D2 
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I  USED  MOVE  1 


ABCDEFGH 


7  .  7 

6  .  6 

5  .  . .RK  .  .  .  5 

4  .  4 

3  .  . .  3 

2  2 

1  .  1 


ABCDEFGH 

>>  MOVE  TO  (LETTER,  NO.)?  E2 


I  USED  MOVE  2 


ABCDEFGH 


B  .  8 


6  . .  6 

5  _ *..  .  5 

4  .  .  .R _  4 

3  ........  3 

2  _ «...  2 

1  .  1 


ABCDEFGH 

>>  MDVE  TO  (LETTER,  NO.)?  F2 
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I  USED  MOVE  1 


A8CDEFGH 


8  .  8 


6  ■•(••■■■  6 

5  _ K  .  .  .  5 

4  _ R...  4 

3  3 

2  . 2 

1  .  1 


A8CDEFGH 

>>  MOVE  TO  {LETTER,  NO.J?  FI 


I  USED  MOVE  1 

ABCDEFGH 


8 


6  . 

5  - K..  . 

4  . R  .  . 

3  ■<•■■■>■ 

2  . 

A8CDEFGH 


>>  MOVE  TO  (LETTER, 


THANKS  FOR  THE  GAME 


NO.  )? 


Q 
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Here’s  the  listing  so  that  you  can  take  on  Senor  Quevedo’s  ma¬ 
chine  for  yourself: 


10  REM  QUEVEDO  CHESS  MACHINE 
20  GOSUB  1510: REM  INITIALISE 
30  GOTO  60 

40  GOSUB  1 320 : REM  PRINT  BOARD 
50  GOSUB  1 1 0 : REM  COMPUTER  MOVES 
60  GOSUB  1320 

70  GOSUB  1120: REM  ACCEPT  HUMAN  MOVE 
80  GOTO  40 
90  END 

100  REM  mimmuhim 
110  REM  COMPUTER  MOVES 
120  IF  QUITsI  THEN  1080 
130  W 1 =  WK 

140  REM  *****«***#*##» 

150  REM  MOVE  ONE 

160  MOVE= 1 

170  KM= INT ( BK/10) 

180  RM=INT(R/10) 

190  IF  ABS(KM-RM)>3  THEN  330 
200  A ( R )  =  4  6 

210  X=INT( BK/10) :Y=INT(R/10) 

220  IF  X>Y  THEN  270 

230  IF  A(R- 10)046  THEN  270 

240  IF  A ( R- 1 9 )  =  BK  OR  A(R-21)=BK  OR  A(R-2 

0 )  =  BK  THEN  270 

250  IF  A(R-11)=BK  OR  A(R-9)=BK  THEN  270 
260  R=  R- 1 0 : GOTO  300 

270  IF  A(R+ 10)046  THEN  A(R)  =  R:G0T0  330 

280  IF  A ( R+ 1 9 )  =  BK  OR  A(R+21)  =  BK  OR  A(R  +  2 

0 )  =  BK  THEN  A  (  R  )  =  R  : GOTO  330 

290  R=  R+ 1 0 

300  A(R)=ASC("Rn) 

310  RETURN 

320  REM  »**»##»**»*»** 

330  REM  MOVE  TWO 
340  M0VE  =  2 
350  KM=BK-10*KM 
360  RM=  R- 1  0»RM 

370  IF  ABS( KM- RM) <2  THEN  480 
380  A( R) =46 
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390  IF  R > 1 1  THEN  IF  (A(R-12)=BK  OR  A(R-2 
) =  BK  OR  A ( R  +  8 )  =  BK )  THEN  A ( R )  =  R : GOTO  480 
400  IF  R  >  1  1  TiHEN  IF  (A(R-l)sBK  OR  A(R-11 
)  =  BK  OR  A ( R+9 )  =  BK )  THEN  A(R)  =  R:GOTO  480 
410  Y=BK-10*INT(BK/10) 

420  Z=R-10*INT( R/10) 

430  IF  (Z=1  OR  Y>Z )  AND  A(R+1)=46  THEN  R 

=  R  + 1 : GOTO  450 

440  RsR-1 

450  A ( R ) =  ASC ( " R  n ) 

460  RETURN 
470  REM 

480  REM  MOVE  THREE 
490  M0VE  =  3 

500  WM=WK-10*INT(WK/10) 

510  BM=BK-10«INT(BK/10) 

520  IF  ABS(WM-BM)<3  THEN  600 

530  IF  A  ( WK- 1)0  46  OR  A(WK-18)=BK  OR  A(W 

K-2 )  =  BK  OR  A ( WK  +  8 ) =  BK  THEN  610 

540  IF  A ( WK- 11)  =  BK  OR  A(WK  +  9)  =  BK  OR  A(WK 

-22 )  =  BK  THEN  610 

550  A ( WK )  =  4 6 

560  WK  =  WK- 1 

570  A ( WK )  =  ASC ( "K n ) 

580  RETURN 

590  REM  . . . 

600  REM  MOVES  FOUR,  FIVE  AND  SIX 
610  Z=ABS( INT(BK/10)-INT(WK/10) ) 

620  IF  Z=0  THEN  950 

630  IF  2* INT( Z/2 ) =Z  THEN  790 

640  REM 

650  REM  MOVE  FOUR 
660  M0VE=4 
670  A ( R )  =  46 

680  IF  A(R- 10)046  THEN  720 

690  IF  A ( R- 9 )  =  BK  OR  A(R-11)  =  BK  THEN  720 

700  IF  A(R-19)  =  BK  OR  A( R-2 1 ) =  BK  OR  A(R-2 

0 )  =  BK  THEN  720 

710  R=  R- 1 0 : G OTO  760 

720  IF  A(  R+ 10)046  THEN  A(R)  =  R:GOTO  790 
730  IF  A(R+19)=BK  OR  A(R+21)=BK  OR  A(R+2 
0  )  =  BK  THEN  A(R)  =  ASC(nR") :GOTO  790 
740  IF  A ( R+ 1 1 ) =  BK  OR  A(R  +  9)  =  BK  THEN  A ( R ) 
=ASC("R") : GOTO  790 
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750  R  =  R+ 1 0 

760  A( R)=ASC( "R") 

770  RETURN 

780  REM  »»««H8S8H»sa 
790  REM  MOVE  FIVE 
800  MOVE  =  5 
810  J=INT(BK/10) 

820  K  =  BK- 1 0 * J 
830  L=INT(WK/10) 

840  M=  WK- 1 0  a L 

850  Z= 1 0 : IF  J<L  THEN  Z=-10 

860  X=  1  : IF  K <M  THEN  X  =  -1 

870  A( WK) =46 

880  W 1 =  WK 

890  WK  =  WK+  Z+X 

900  G  =  ABS ( WK-BK ) 

910  IF  G= 1  OR  G=9  OR  G= 1 0  OR  G= 1 1  THEN  W 
K=W1 : A( WK ) =75 : GOTO  950 
920  A ( WK )  =  ASC ( "K " ) 

930  RETURN 
940  REM 

950  REM  MOVE  SIX 
960  M0VE  =  6 
970  A ( R ) =  4 6 

980  IF  R > 1 1  THEN  IF  A(R-12)  =  BK  OR  A(R-2) 

=  BK  OR  A ( R  +  8 ) =BK  OR  A(R-1)<>46  THEN  1070 

990  IF  R > 1 1  THEN  IF  (A(R-1)  =  BK  OR  A ( R- 1 1 

)  =  BK  OR  A ( R  +  9 ) =  BK )  THEN  1070 
1000  Y=BK-10*INT( BK/10) 

1010  Z=R-10*INT(R/10) 

1020  IF  (Z=1  OR  Y>Z )  AND  A(R+1)=46  THEN 
R  =  R+ 1 : GOTO  1040 
1  030  R=  R- 1 
1040  A(R)=ASC("R") 

1050  RETURN 
1060  REM 
1070  GOSUB  1320 
1  080  PRINT.-PRINT 

1090  PRINT  "I  CONCEDE  TO  THE  MASTER" 

1100  END 
1110  REM 

1120  REM  ACCEPT  HUMAN  MOVE 
1130  REM  ENTER  'Q»  TO  QUIT 
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1 140  MOVE  =  0 

1150  PRINT  ">>  MOVE  TO  ( LETTER  s  NO.)"; 
1160  INPUT  G $ 

1170  IF  G$="Q"  THEN  1280 
1180  IF  LEN(G$)<>2  THEN  1160 
1190  Z=ASC(G$) 

1  200  IF  Z<6 5  OR  Z>72  THEN  1160 
1210  X=VAL(RIGHT$(G$, 1 ) ) 

1  220  IF  X<1  OR  X>8  THEN  1 1 6 0 

1  230  A ( BK )  =  46 

1240  BK= 1 0* ( Z-64 )+X 

1  250  IF  A  (  BK  ).=  ASC  (  " R "  )  THEN  QUIT=1 
1260  A( BK ) = ASC( " $" ) 

1270  RETURN 
1280  PRINT : PRINT 

1290  PRINT  "THANKS  FOR  THE  GAME" 

1300  END 
1310  REM 

1320  REM  PRINT  BOARD 
1  330  CL S 

1340  PRINT: PRINT 

1350  IF  MOVE>0  THEN  PRINT  "I  USED  MOVE"M 
OVE 

1360  IF  MOVE=0  THEN  PRINT 

1  370  PRINT.-PRINT 

1380  PRINT  TAB( 11); "ABCDEFGH" 

1  390  FOR  J=  8  TO  1  STEP  -1 
1400  PRINT  TAB ( 8 ) ; J; 

1410  FOR  K= 1 0  TO  80  STEP  10 
1420  PRINT  CHR$(A( J+K) ) ; 

1430  NEXT  K 
1440  PRINT  J 
1450  NEXT  J 
1460  PRINT 

1470  PRINT  TAB( 1 1 ); "ABCDEFGH" 

1480  PRINT : PRINT 
1490  RETURN 
1  500  REM 

1510  REM  INITIALISATION 
1  520  CL S 

1530  RANDOMIZE  VAL( RIGHT* ( TIME$ , 2 ) ) 

1  540  MOVE=  0 
1  550  QU IT=  0 
1 560  DIM  A ( 130) 
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1570  FOR  J=10  TO  80  STEP  10 

1  580  FOR  K  = 1  TO  8 

1590  A( J+K ) =46 : REM  ASCII  OF  " . " 

1600  NEXT  K 

1610  NEXT  J 

1620  REM  *«  PLACE  PIECES  ** 

1630  REM  BLACK  KING  -  HUMAN 
1640  BK=INT(RND( 1 )*3)+1 
1650  BK=10»BK+BK+INT(RND( 1 )«5) 
1660  A(BK)=ASC("$") 

1670  REM  WHITE  KING  -  COMPUTER 
1680  WK=INT(RND( 1 ) *4 ) +4 
1690  WK=10*WK+WK+INT(RND( 1  )  *2 ) 
1700  IF  WK  =  BK  THEN  1680 
1710  A(WK)=ASC( "K") 

1720  REM  WHITE  ROOK  -  COMPUTER 
1730  R=INT(RND( 1 ) *4 )+4 
1740  R=10*R+R+INT(RND( 1 )*2) 

1750  IF  R=WK  OR  R=BK  THEN  1730 
1760  IF  ABS(R-BK)<12  THEN  1730 
1770  A ( R )  =  ASC ( " R  n ) 

1780  RETURN 
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Into  the 
Political  Arena 


As  we  discussed  earlier,  computer  programs  can  also  be  used  to  sim¬ 
ulate  any  process  where  the  links  between  elements  of  the  process 
can  be  expressed  as  one  or  more  mathematical  relationships.  The  po¬ 
litical  simulation  in  this  chapter,  WASHINGTON,  D.C.,  shows  this 
very  clearly.  It’s  governed  by  mathematical  relationships  that  repre¬ 
sent  a  grossly  over-simplified  version  of  the  American  economy. 

You  take  the  role  of  the  hapless  occupant  of  the  Oval  Office,  run¬ 
ning — as  you’ll  soon  see — an  economy  that  is  somewhat  out  of  kilter. 
To  retain  your  popular  support  (and  the  Presidency)  you  have  to  try 
to  keep  the  whole  thing  together.  You  need  to  do  your  best  to  improve 
the  standard  of  living,  keep  inflation  and  unemployment  down,  stim¬ 
ulate  private  investment,  and  generally  maintain  an  acceptable 
growth  in  the  economy,  all  at  same  time.  You’ll  discover  that  a  Pres¬ 
ident’s  lot  is  not  a  happy  one. 

The  simulation  begins  with  a  report  on  the  state  of  the  nation: 

PRESIDENT  HARTNELL: 

YOUR  ADMINISTRATION  HAS  BEEN  IN 
POWER  FOR  .25  YEARS 


STATE  OF  THE  N  A  T I  ON 


POPULATI  ON  3000  B1  9 
NO.  UNEMPLOYED  300000 


9  % 


CURRENT  WAGES  $  100  INFLATION  5  * 

GOVT.  EXPENDITURE  LAST  OTR.  $M  118 
UNEMPLOYMENT'  COST  $M  0 
INCOME  FROM  TAXES  $M  0 
BUDGET  SURPLUS[+]/DEFICIT[— )  *  M  0 

GROSS  DOMESTIC  PRODUCT  $M  440 


PUBLIC  INVESTMENT  0  0  1  $M  236 


You  start  each  run  with  a  population  of  around  3,000,000  and  an 
unemployment  rate  of  about  10%.  You  are  then  asked  to  make  some 
snap  judgments  on  levels  of  government  spending,  cost  of  wages,  and 
on  your  administration’s  immigration  policy: 

OK,  PRESIDENT  HARTNELL... 

ENTER  GOVERNMENT  SPENDING  $M?  102 
ENTER  COST  OF  WAGES  SM?  41 
IS  YOUR  ADMINISTRATION  IN  FAVOR  OF 
IMMIGRATION  THIS  QUARTER  (Y/N)? 

OK  ...  N 

At  the  end  of  my  second  quarter  in  office,  I  found  that  while  I  had 
somehow  kept  inflation  and  unemployment  under  control,  I  was  sud¬ 
denly  faced  with  a  budget  deficit  of  over  $69  million!  On  the  positive 
side,  public  investment  (and  therefore,  I  hoped,  public  confidence) 
was  on  the  increase,  up  from  $236  million  at  the  end  of  the  first 
quarter  to  more  than  $257  million  at  this  point  I  decide  to  increase 
spending  slightly: 

PRESIDENT  HARTNELL: 

YOUR  ADMINISTRATION  HAS  BEEN  IN 
POWER  FOR  .5  YEARS 


STATE  OF  THE  NATION 


POPULATI ON  3001 638 

NO.  UNEMPLOYED  287879  9  % 

CURRENT  WAGES  $  41  INFLATION  9  % 

GOVT.  EXPENDITURE  LAST  QTR.  $M  102 
UNEMPLOYMENT  COST  $M  11.8 
INCOME  FROM  TAXES  SM  44.4 
BUDGET  SURPLUS[+]/DEFICIT(-]  $M-69.4 
GROSS  DOMESTIC  PRODUCT  SM  449.2 
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PUBLIC  INVESTMENT  0  Q  2  $M  275.7 


OK,  PRESIDENT  HARTNELL... 

ENTER  GOVERNMENT  SPENDING  *M?  107 

ENTER  COST  OF  WAGES  SM?  43 


I  also  decide  to  let  a  few  of  the  world’s  tired  and  hungry  masses 
into  the  land  of  milk  and  budget  deficits: 

IS  YOUR  ADMINISTRATION  IN  FAVOR  OF 
IMMIGRATION  THIS  QUARTER  [Y/N)? 

OK  ...  Y 

HOW  MANY  IMMIGRANTS  WILL  YOU  ALLOW 
INTO  THE  US? 

?  10  0  0 

At  the  end  of  my  first  year,  the  deficit  has  grown  to  $2 16  million, 
and  standard  of  living  has  increased  by  12% : 

YOUR  ADMINISTRATION  HAS  BEEN  IN 
POWER  FOR  1  YEARS 


STATE  OF  THE  NATION 


POPULATI ON  3004277 

NO.  UNEMPLOYED  272309  9  % 

CURRENT  WAGES  *  46  INFLATION  9  % 

GOVT.  EXPENDITURE  LAST  QTR.  $M  ill 

UNEMPLOYMENT  COST  $M  12.5 

INCOME  FROM  TAXES  $M  50.2 

BUDGET  SURP LUS [ + ] /D EFI Cl T [ - ]  $M-216,7 

GROSS  OOMESTIC  PRODUCT  $M  4B6.2 

CHANGE  IN  LIVING  STANDARD  12  % 


PUBLIC  INVESTMENT  0  Q  4  $M  364.4 


OK,  PRESIDENT  HARTNELL... 

ENTER  GOVERNMENT  SPENDING  $M?  120 

ENTER  COST  OF  WAGES  $M?  65 

IS  YOUR  ADMINISTRATION  IN  FAVOR  OF 
IMMIGRATION  THIS  QUARTER  (Y/N)? 

OK  ...  N 


I  stumble  on,  narrowly  avoiding  disasters  each  time  I  turn  my 
head.  Things  start  getting  really  hairy  toward  the  end  of  my  second 
year  in  office: 

PRESIDENT  HARTNELL; 

YOUR  ADMINISTRATION  HAS  BEEN  IN 
POWER  FOR  1 .75  YEARS 


STATE  OF  THE  NATION 


POPULATION  300B23B 

NO.  UNEMPLOYED  377324  12  % 

CURRENT  WAGES  $  66  INFLATION  12  % 

GOVT.  EXPENDITURE  LAST  QTR.  $M  125 

UNEMPLOYMENT  COST  $M  24.9 

INCOME  FROM  TAXES  $M  69.4 

BUOGET  S UR P LUS [  +  1 /D EF I  Cl T [  - 1  $M-4  3  6  .B 

GROSS  DOMESTIC  PRODUCT  $M  B66 

CHANGE  IN  LIVING  STANDARD  13  % 


PUBLIC  INVESTMENT  1  Q  3  $M  243.2 


OK,  PRESIDENT  HARTNELL... 

ENTER  GOVERNMENT  SPENDING  $M?  126 

ENTER  COST  OF  WAGES  $M?  67 


The  outcome  is  inevitable.  My  time  is  up: 

PRESIDENT  HARTNELL,  YOUR 
ADMINISTRATION'S  POOR  ECONOMIC 
PERFORMANCE  HAS  LED  TO  AN  UNACCEPTABLE 
RISE  IN  UNEMPLOYMENT 

AMONG  OTHER  THI NGS  .  .  . 


THE  LACK  OF  CONFIDENCE  IN  YOUR 
ADMINISTRATION  IS  SO  BAD  THERE  ARE 
CALLS  FOR  YOU  TO  RESIGN.  ..YOU  STEP 
ASIDE  TO  ALLOW  THE  VICE-PRESIDENT  TO 
OCCUPY  THE  OVAL  OFFICE 


YOU  WERE  PRESIDENT  FOR  2.25  YEARS 
DURING  YDUR  TERM  OF  OFFICE,  THE 
POPULATI ON  ROSE  BY  9059 


THE  UNEMPLOYMENT  RATE  BECAME  17  % 

AND  THE  INFLATION  RATE  BECAME  17.4  % 

STANDARD  OF  LIVING  CHANGED  BY  17  % 

AND  THE  BUDGET  S U R P L U S / D E F I C  I  T 
WAS  SM-5  97  .  5 


This  is  a  program  you  may  well  enjoy  modifying.  For  example, 
changing  the  income  you  get  from  taxes,  will  alter  the  simulation  in 
a  radical  way.  You  can  also  fiddle  with  the  thresholds  at  which  the 
public  starts  waving  their  fists. 

Line  50  governs  the  increase  in  population  from  quarter  to 
quarter.  A  steeper  increase  here  will  make  it  harder  to  keep  the  lid  on 
unemployment 

I’ve  been  pretty  generous  with  my  use  of  REM  statements  in  this 
program,  so  you  should  find  it  relatively  easy  to  track  down  the  var¬ 
iables  you’d  like  to  modify.  Here  are  the  major  ones,  as  listed  in  the 
initialization  section  of  the  program: 


1150 
1160 
1170 
1180 
1190 
1  200 
1  21  0 
1  220 
1230 
1  240 
1  250 
1  260 
1  270 
1280 
1290 
130  0 
1310 
1320 

1330 
1  340 
1  350 
1360 
1  37  0 


PEN  *************************** 

REM  INITIALIZATION 
C  LS 

RANDOMIZE  V A L [ R I G H T $ ( T I M E * , 2 ] ] 

M  L  =  1  0  00  *1  000 

P=3*ML: REM  POPULATION 

U=P/1 0 : REM  UNEMPLOYMENT 

IV=236:REM  INVESTMENT 

GE=118sREM  GOVERNMENT  EXPENDITURE 

G  U  =  0 : REM  COST  OF  UNEMPLOYMENT 

G I =  0 : R  EM  INCOME  FROM  TAXES 

WN  =  1 0  0 : R  EM  NEW  WAGES 

W  0  =  1  0  0 : R  EM  0L0  WAGES 

I  P  =  5  s  REM  INFLATION  PERCENT 

GDP=440 : REM  GROSS  DOMESTIC  PRODUCT 

AGDP=440 : REM  BASE  YEAR  GDP 

RG0P=440 : REM  REAL  GDP 

CN=354:REM  ECONOMIC  CONSTANT 

(USED  THROUGHOUT  SIMULATION] 

Z  =  1  : GAM  E=0 : F  LAG=0 
Y  =  0  s  R  EM  YEAR 

PRINT  "ENTER  YOUR  LAST  NAME" 

INPUT  A  $ 

RETURN 


The  part  of  the  program  that  does  all  the  calculating  is  also  fairly 
easy  to  unravel,  once  you  know  the  principal  variables: 


490  REM  *************************** 

500  REM  CALCULATIONS 
510  CN=CN+ ( CN*IP/1 DO ] 

520  U=P*(GE+IV)/(CN*10]+P*[IP/1000) 

530  GU=U*WN/ML:REM  UNEMPLOYMENT  COST 
540  GI = ( ( [ P-U 1 *WN* . 4 ] /M L ) : R EM  INCOME 
FROM  TAXES 

550  BD=BD+GI-GU-GE: REM  BUDGET  DEFICIT 
560  AGDP  =  AGDP* ( 1  +  [ I  P/1  DO ]  ] 

5  7  D  GDP  =  GE+IV+[  [P  — U]*WN/ML) 

580  RGDP=GDP*440/AGDP 

590  IP=((GE+IV)/CN*.1+(WN/W0]/100)*100 
600  IV=[CN*67]/f IP*IP) 

610  W  0  =  WN 

620  Z  =  Z  +  1  i  IF  Z  >  4  THEN  Z=1sY=Y+1 
630  RETURN 

640  REM  *************************** 

650  REM  CHECK  BUDGET  DEFICIT 
660  IF  80  >-1  000  THEN  RETURN 
670  G  AM  E  =  1 
680  F  L  A  G  =  1 
690  RETURN 

700  REM  *************************** 

710  REM  CHECK  STANOARD  OF  LIVING 
720  IF  Y  <  ,  7  5  THEN  RETURN 

730  IF  INT [ ( 2* l [ RGOP/AGOP ) *1 00 ] -1 00 ) /3 ] > 

-15  THEN  RETURN 

740  GAM  E  =  1 

750  F  L  A  G  =  2 

760  RETURN 

770  REM  *************************** 

780  REM  CHECK  INFLATION  RATE 
7  90  IF  IP  <1 5  THEN  RETURN 
80  0  G  AM  E  =  1 
810  F  L  A  G  =  3 
820  RETURN 

830  REM  *************************** 

840  REM  CHECK  UNEMPLOYMENT 

850  IF  INT{ U*1 00/PJ <1 5  THEN  RETURN 


860  G  A  M  E  =  1 
870  F  LA  G  =  4 
880  RETURN 
890  REM 


Here  is  the  complete  listing  of  the  WASHINGTON,  D.C.  program: 


10  REM  WASHI NGTON  D  .  C  . 

20  G0SUB  1  1  6  Or:  R  EM  INITIALIZE 

40  REM  MAJOR  CYCLE 
50  P=INT(P+(P*273/ML1] 

60  GOSUB  1 6  0 : R  EM  PRINTOUT 
70  GOSUB  5 1 0 : R  EM  CALCULATE 
80  REM  NOW  CHECK  END  GAME 
90  GOSUB  7 1 0 : R  EM  STANDARD  OF  LIVING 
GOSUB  7  8  0  : R  EM  INFLATION  RATE 
GOSUB  8  4  0  :  R  EM  UNEMPLOYMENT 
IF  G  A  M  E  =  1  THEN  CLSsGOTO  890 
GOTO  50 

REM  *  $.**#***&****#*******#&*#:«!  * 

REM  PRINTOUT 
CLS 

PRINT  "PRESIDENT  "  5  A  $  5  "  s  " 

PRINT  "YOUR  ADMINISTRATION  HAS  BEEN 
POWER  FOR  "Y  +  Z/ 4" YEARS" 
PRINT  " - 

200  PRINT  » - STATE  OF  THE  NATION - 


1  00 
1  1  0 
1  20 
1  30 
1  40 
1  50 
1  60 
170 
180 
I  N 
1  90 


210  PRINT  " - 

220  PRINT  "POPULATION"? 

230  PRINT  "NO.  U N EM P L OY ED " I  NT { U ]  "  "INT( 
1 00*U/P] "X" 

240  PRINT  "CURRENT  WAGES  $"W0"  INFLATION 
" I  NT (  IP ]  "X  " 

250  PRINT  "GOVT.  EXPENDITURE  LAST  OTR.  $ 
M  "  G  E 

260  PRINT  "UNEMPLOYMENT  COST  $M" I  NT ( 1 0*G 
U  )/1  0 

270  PRINT  "INCOME  FROM  TAXES  $M»INT[GI*1 

0  1/10 


2  B  0  PRINT  "BUDGET  SURPLUS(  +  ]/  DEFICIT(-J 
$Hn I  NT [ BD*1 0 )/1 0 

290  PRINT  "GROSS  DOMESTIC  PRODUCT  $M"INT 
C  GDP*1 0  )/1  0 

300  IF  Y+Z/4>.5  THEN  PRINT  "CHANGE  IN  LI 
VING  STANDARD "INT((2*((RGDP/AGDP]*100)-1 
0  0  )  /  3  }  "  %  " 

310  PRINT  " - 

320  PRINT  "PUBLIC  INVESTMENT" Y»Q"Z"$M" IN 
T(IV*10)/10 

330  PRINT  " - 

340  PRINT  "OK,  PRESIDENT  "  }  A  $  j  "  .  .  .  " 

350  INPUT  "ENTER  GOVERNMENT  SPENDING  $M" 
I  GE 

3  B  0  INPUT  "ENTER  COST  OF  WAGES  $M»jWN 
370  PRINT  "IS  YDUR  ADMINISTRATION  IN  FAV 
OR  OF" 

3  B  0  PRINT  "IMMIGRATION  THIS  QUARTER  (Y/N 

)  ?» 

390  X$=INKEY$ 

400  IF  X  $  <  >" Y "  AND  X  $  <  > " N "  THEN  390 
410  PRINT  TAB ( 20 )  f " OK  .  .  .  " |X$ 

420  FOR  H  =  1  TO  1000  . -NEXT  H 

430  IF  X  $  <  > " Y "  THEN  RETURN 

440  PRINT  "HOW  MANY  IMMIGRANTS  WILL  YOU 

ALLOW  INTO  THE  US?" 

450  INPUT  M 

4  B  0  IF  M  <  0  THEN  450 
470  P  =  P  +  M 

480  RETURN 

490  REM  #***  *#****#***’»###***#  a  * 

500  REM  CALCULATIONS 
51 0  CN=CN+(CN*IP/1 00} 

520  U=P*[GE+IV)/(CN*10]+P*(IP/100D) 

530  GU=U*WN/ML: REM  UNEMPLOYMENT  CDST 
540  GI= [ ( [ P-U ) * WN* . 4 ]/M L ) s R EM  INCOME 
FROM  TAXES 

550  BD=BD+GI-GU-GE: REM  BUDGET  DEFICIT 
560  A GD P  =  AGD P* ( 1  +  ( I  P/1 o 0  ]  ] 

570  GDP=GE+IV+( (P-U)*WN/ML) 

5  B  0  RGDP  =  GDP*440/AGDP 

590  IP=([GE+IV)/CN*.1+(WN/W0)/100)*100 
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BOO  IV=[CN*67}/[IP*IP] 

BIO  W  0  =  W  N 

6  2  0  Z  =  Z  +  1  s I F  Z  >  4  THEN  Z  =  1sY=Y+1 
630  RETURN 

640  REM  *************************** 

650  REM  CHECK  BUDGET  DEFICIT 

6  6  D  IF  BD  >-1  000  THEN  RETURN 
670  GAM  E  =  1 

BBO  F  L  A  G  =  1 
690  RETURN 

700  REM  *************************** 

710  REM  CHECK  STANDARD  OF  LIVING 
720  IF  Y  <  .  7  5  THEN  RETURN 

7  30  IF  INT[  (2*1  [RGDP/AGDP)*100]-100]/3]  > 
-15  THEN  RETURN 

740  G  A  M  E  =  1 
750  F  L  A  G  =  2 
760  RETURN 

770  REM  *************************** 

760  REM  CHECK  INFLATION  RATE 
790  IF  I P  < 1 5  THEN  RETURN 
BOO  G  A  M  E  =  1 
610  F  L  A  G  =  3 
820  RETURN 

640  REM  CHECK  UNEMPLOYMENT 

650  IF  I  N  T [ U  *  1  00/P)  <1  5  THEN  RETURN 

660  GAME=1 

870  F  L A G  =  4 

680  RETURN 

690  REM  *************************** 

90D  REM  END  OF  THE  GAME 

910  PRINT  "PRESIDENT  »  5  A  $  S  »  ,  YOUR" 

920  PRINT  "ADMINISTRATION'S  POOR  ECONOMI 
C  " 

930  PRINT  "PERFORMANCE  HAS  LED  TO  AN  UNA 
CCEP TABLE" 

940  IF  F  L A  G  =1  THEN  PRINT  "BUDGET  DEFICIT 

950  IF  F  L A  G  =  2  THEN  PRINT  "DROP  IN  THE  ST 
ANDARD  OF  LIVING" 

9  6  0  IF  F  L  A  G  =  3  THEN  PRINT  "RISE  IN  THE  IN 
FLATION  RATE" 


970  IF  F  LA  G  =  4  THEN  PRINT  "RISE  IN  UNEMPL 
0  Y  M  E  N  T  " 

980  PRINT  »  AMONG  OTHER  THINGS.. 

990  PRINT  " - 


1 000  PRINT 
UR  " 

1010  PRINT 
RE  ARE" 
1020  PRINT 
U  STEP" 
1030  PRINT 
I D  E  N  T  TO" 
1040  PRINT 
E  " 

1050  FOR  H 
1060  PRINT 


THE  LACK  OF  CONFIDENCE  IN  YO 
ADMINISTRATION  IS  SO  BAD  THE 
CALLS  FOR  YOU  TO  RESIGN.  ..YO 
ASIDE  TO  ALLOW  THE  VICE-PRES 
OCCUPY  THE  OVAL  OFFIC 
TO  1  000  :  NEXT  H 


1070  PRINT  "YOU  WERE  PRESIDENT  F  0  R  "  Y  +  (  Z  * 
.  25 )  "YEARS" 

1080  PRINT  "DURING  YOUR  TERM  OF  OFFICE, 
THE" 

1090  PRINT  "POPULATION  ROSE  BY"P-3*ML 
1100  PRINT  "THE  UNEMPLOYMENT  RATE  BECAME 
"INT[U*1000/P)/10" %" 

1110  PRINT  "AND  THE  INFLATION  RATE  BECAM 
E"INT[1 0*IP)/10"%" 

1120  PRINT  "STANDARD  OF  LIVING  CHANGEO  B 
Y»INT[[2*[[RGDP/AGDP)*100)-100)/3)"X" 
1130  PRINT  "AND  THE  BUDGET  SURPLUS/ DEFIC 
IT  WAS  $M » I  NT [ 1 0  * BD ) /I D 

1140  END 

1150  REM  ******************.!.*##**#** 

1160  REM  INITIALIZATION 
1 1 7D  CLS 

1 1 B  0  RANDOMIZE  VA  L  [  R  I  GHT  $  [  T  I  M  E  $  ,  2  )) 

1 1  90  M  L=1  0  00*1  0  0  0 

1200  P=3*ML: REM  POPULATION 

1210  U  =  P/ 1 0 : R  EM  UNEMPLOYMENT 

1220  IV=236:REM  INVESTMENT 

1230  GE=11B:REM  GOVERNMENT  EXPENDITURE 

1  240  G  U  =  0 : R  E  M  COST  OF  UNEMPLOYMENT 


125D  GI=OsREM  INCDME  FROM  TAXES 
1260  W  N  =  1 00 : REM  NEW  WAGES 
1270  W0=100:REM  OLD  WAGES 
1280  IP=5:REM  INFLATION  PERCENT 
1290  G  D  P  =  4  4  0 : REM  GROSS  DOMESTIC  PRODUCT 
1 3  D  D  AGDP  =  440 : REM  BASE  YEAR  GDP 
1310  RGDP=440:REM  REAL  GDP 
1320  CN=354: REM  ECONOMIC  CONSTANT 
[USED  THROUGHOUT  SIMULATION) 

1 3  3  D  Z  =  1  : GAM E  =  0 : FLAG  =  0 
1  340  Y  =  0 : REM  Y  EAR 

1350  PRINT  "ENTER  YOUR  LAST  NAME" 

1  3  60  INPUT  A  $ 

1370  RETURN 
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1  3 


Playing  the 
Stock  Market 


The  numbers  that  a  computer  manipulates  can  represent  anything — 
cloud  density,  intricate  subatomic  reactions  within  a  complex  chem¬ 
ical  experiment,  or  the  number  of  warriors  taking  part  in  a  Roman 
raid  on  an  English  village.  When  computers  were  first  used  in  busi¬ 
ness,  the  numbers  generally  stood  for  more  mundane  things  like  sta¬ 
tistics,  sales,  and  dollars.  In  the  simulation  in  this  chapter,  we’ll  stick 
to  the  extremely  important,  if  mundane,  subject  of  money. 

You  play  a  broker  dealing  in  a  small  market  of  five  companies. 
You  start  the  simulation  with  $15,000  and  are  asked  to  enter  a  finan¬ 
cial  target  for  the  run: 

ENTER  YGUR  GOAL  FOR  THIS  SIMULATION, 

$16,000  TO  $100,000 

?  250000 

TOO  HIGH! 

ENTER  YOUR  GOAL  FOR  THIS  SIMULATION, 

$16,000  TO  $100,000 

?  16000 
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Once  you’ve  done  that,  the  starting  state  of  the  market  is  re¬ 
vealed: 


DAY  1  YOUR  GOAL  IS  $  16000 


COMPANY  NUMBER: 

1  2  3  4  5 

CHANCE  OF  INCREASE  [XI: 

23  59  28  59  41 

CHANCE  OF  DECREASE  [X] : 

31  26  55  8  17 

CURRENT  VALUE  PER  SHARE: 

$  1.49  $  1.99  $  2.49  $  2.99  $  3.49 

NO.  OF  SHARES  HELD: 

2000  1500  1200  1000  800 

BANK  $  265  TOTAL  WORTH  $  15000 


DO  YOU  WANT  TO  SELL  ANY  SHARES  (Y/N)? 


One  cycle  of  buying  and/or  selling  represents  a  day  of  trading. 
Each  day,  you  are  told  the  chance  of  each  share  rising  or  falling  in 
price.  Based  on  that  information,  you  can  decide  what  to  buy  or  sell: 


DAY  1  YOUR  GOAL  IS  $  16000 


COMPANY  NUMBER: 

1  2  3  4  5 

CHANCE  OF  INCREASE  (X): 

23  59  28  59  41 

CHANCE  OF  DECREASE  [X]: 

31  26  55  8  17 

CURRENT  VALUE  PER  SHARE: 

$  1.49  $  1.99  *  2.49  *  2.99  *  3.49 

ND.  OF  SHARES  HELD: 

2000  1500  1200  1000  800 

BANK  $  265  TOTAL  WORTH  $  15000 


WHICH  ONES  TO  SELL?  OK  1 
HOW  MANY  OF  1  TO  SELL?  3000 
YOU  DON'T  HAVE  THAT  MANY  I 
?  1500 
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DAY  1 


YOUR  GOAL  IS  $  16000 


COMPANY  NUMBER; 

1  2  3  4  5 

CHANCE  OF  INCREASE  [X) : 

23  59  28  59  41 

CHANCE  OF  DECREASE  (X) : 

31  26  55  B  17 

CURRENT  VALUE  PER  SHARE: 

*  1.49  *  1.99  £  2.49  $  2.99  £  3.49 

NO.  OF  SHARES  HELD; 

500  1500  1200  1000  800 

BANK  $  2500  TOTAL  WORTH  *  15000 


WHICH  COMPANY  TO  BUY?  OK  4 
HOW  MANY  OF  4  TO  BUY?  750 


You  can  only  sell  and  buy  shares  once  each  day,  so  you  must 
choose  wisely.  After  you’ve  made  your  decisions,  the  computer  will 
tell  you  how  you  rate  as  a  stockbroker.  Some  of  the  assessments,  as 
I'm  sure  you’ll  discover,  can  be  quite  harsh: 


DAY  2  YOUR  GOAL  IS  S  16000 


COMPANY  NUMBER: 

1  2  3  4  5 

CHANCE  OF  INCREASE  (X) ; 

51  11  43  32  35 

CHANCE  OF  DECREASE  [X)  s 
49  43  8  49  46 

CURRENT  VALUE  PER  SHARE; 

£  1.49  $  2.1  $  2.36  *  3.16  £  3.49 

NO.  OF  SHARES  HELD: 

600  1500  1200  1750  BOO 

BANK  S  108  TOTAL  WORTH  £  15329.06 


YOUR  RATING  AFTER  THAT  ROUf®  OF 
TRADING  IS  'BAD' 


<PRESS  SPACEBAR  TO  CONTINUE  > 


However,  if  you  persevere,  you  may  well  prosper  in  the  end.  Just 
don’t  allow  yourself  to  be  discouraged  by  assessments  such  as 
“hopeless”: 


DAY  8  YOUR  GOAL  IS  S 

16000 

COMPANY  NUMBER: 

1  S  3  4 

5 

CHANCE  OF  INCREASE  (X): 

IB  72  B9  24 

32 

CHANCE  OF  DECREASE  (X): 

4  25  1  55 

50 

CURRENT  VALUE  PER  SHARE: 

$  1 .53  *  2,31  *  2.57  *  2.69 

$  3.68 

NO.  OF  SHARES  HELD: 

2100  400  1200  1750 

BOO 

BANK  $  191  TOTAL  WORTH  $•  15103.32 

WHICH  ONES  TO  SELL?  OK  1 

HOW  MANY  OF  1  TO  SELL?  2100 

OAY  11  YOUR  GOAL 

IS  1 

i  16000 

COMPANY  NUMBER: 

1  2  3 

4 

5 

CHANCE  OF  INCREASE  [%) : 
B7  30  IB 

27 

30 

CHANCE  OF  OECREASE  (X): 
4  50  51 

44 

52 

CURRENT  VALUE  PER  SHARE: 

$  1 .5B  S  2.44  $  2.69  $ 

2.65 

$  3.6B 

NO.  OF  SHARES  HELD: 

600  0  2400 

1750 

BOD 

BANK  $  355  TOTAL  WORTH 

$  15352.79 

YOUR  RATING  AFTER  THAT  R0UM3  OF 
TRADING  IS  'HOPELESS' 

<PRESS  SPACEBAR  TO  CONTINUE  > 
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DAY  17 


YOUR  GOAL  IS  $  16000 


COMPANY  NUMBER: 

1  2  3  4  5 

CHANCE  OF  INCREASE  (*): 

47  65  3B  B  47 

CHANCE  OF  DECREASE  {%) : 

32  7  44  25  40 

CURRENT  VALUE  PER  SHARE: 

$1.78  $  2.5  $  2.61  $  2.98  $  3.B3 

NO.  OF  SHARES  HELD: 

0  0  2900  1750  BOO 

BANK  $  229  TOTAL  WORTH  $  16109.47 


YOU'VE  HIT  YOUR  FINANCIAL  GOAL  I 


The  STOCK  MARKET  listing  is  presented  in  the  following  chap¬ 
ter. 
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14 


The 

STOCK  MARKET 
Listing 


When  you’re  ready  to  challenge  the  best  brains  of  Wall  Street,  enter 
and  run  the  following  listing.  Just  don’t  be  too  ambitious  with  your 
financial  goals,  or  you’ll  never  attain  financial  security. 


10  REM  STOCK  MARKET 
SO  CLS 

30  RANDOMIZE  V A L [ R I G H T $ l T I M E $ f 2 ) ) 

40  DIM  S(5],N(5),P{5),0(5] 

50  S(1  )=1  „  4  9  s  S [ 2 ] = 1  „99:S(3}=2.49:S[4)=2. 
99 : S ( 5 ] =3 . 49 

60  N[1)=2000:N[2]=1500:N[3]=1200!N(4)=10 

00  s  N ( 5 ) =800 

70  BB=265sTV=1 5000: QQ=1 5000 :DAY=1 
80  PRINTsPRINT  "ENTER  YOUR  GOAL  FOR  THIS 
SIMULATION," 

90  PRINT  TABtBl; "$16,000  TO  $100,000" 

100  INPUT  GOAL 

110  IF  G0AL<1 6000  THEN  PRINT  "TOO  L0WI"s 
GOTO  80 

120  IF  G0AL>1 00*1 000  THEN  PRINT  "TOO  HIG 
H  I  "  s  G  0  T  0  B0 


130  REM  ************************ 

140  REM  MAJOR  LOOP 
150  FOR  C=1  TO  5 

160  REM  ADJUST  THE  55  IN  NEXT  LINE  TO 

MODIFY  GAME;  80  VERY  HARD,  30  VERY  EASY 

170  D(C)=INT(RND|1  ] *  5  5 ] + 1 

180  P[C]=INT(RND{1J*[100-D(CJ)]+1 

190  NEXT  C 

200  GOSUB  230 

210  GOTO  460 

220  REM  *************  *  *  *  *  ******  * 

230  REM  PRINTOUT 
240  GLS 

250  PRINT  " - 


260  PRINT  "DAY "DAY"  YOUR  GOAL  IS 

$  "  G  OA  L 

270  PRINT  " - 


280  PRINT  "COMPANY  NUMBER:" 

2  90  PRINT  TAB ( 2  )  ;  1  ;  TAB ( 9  )  ;  2  ;  TAB [ 1 6 )  ; 3 ; TA 
B  t  2  5 )  ; 4 | T  A  B ( 3  2  ]  ;5 

3  0  0  PRINT  "CHANCE  OF  INCREASE  [  %  )  :  " 

310  PRINT  TAB ( 2  )  ;  P  ( 1  )  ;  TAB ( 9)  ;  P t 2 )  ;  TAB  ( 1 6 
)  S  P ( 3 )  ,  T  A  B  (  2  5  ]  |P(4]  ;  T  A  B [ 3  2  )  ;P[5) 

320  PRINT  "CHANCE  OF  DECREASE  [%]:” 

33  0  PRINT  TAB t 2)  |D  ( 1  )  ;TAB [ 9)  ;D ( 2  )  ;TAB ( 1 6 
);D(3];TAB(25);D(4)fTAB(32)jD[5) 

340  PRINT  "CURRENT  VALUE  PER  SHARE:" 

350  PRINT  " «" ; I  NT l S[  1  ) *1  0  0  )/1  0  0  jTAB ( 8 ]  ;  " 
$"  ;INT(S(2)*100)/100; 

36  0  PRINT  TAB [1 5 J  ; " } I  NT [ S [ 3 ) *1 00 ) /I  00 ; 
TAB ( 23 )  ; " ; I  NT ( S ( 4  )  *1  DO ]/1 00 ; 

37  0  PRINT  TAB [ 30 ]  ;  " $ " ; I  NT  (  S ( 5  )  *1  DO J /I  00 
380  PRINT  "NO.  OF  SHARES  HELD:" 

390  PRINT  TAB ( 2  )  ;  N  [  1  ]  ; TAB [ 9 )  ;  N ( 2 }  ;  TAB ( 1 6 
1  *  N ( 3  J  ; T  A  8 ( 2  4 )  ;N[4]  ;TAB(31  }  ;  N  (  5  ) 

400  PRINT  "BANK  $"INT(BB)"  TOTAL  WORTH  $ 
"TV 

410  PRINT  » - 


420  IF  T  V  >  G  D  A  L  THEN  PRINT  "YOU'VE  HIT  YO 
UR  FINANCIAL  GOALI"sEND 
430  RETURN 


440  REM  ************************ 

450  REM  **  SELL  *  * 

460  PRINT  "DO  YOU  WANT  TO  SELL  ANY  SHARE 
S  (  Y  /  N  )  ?  » 

470  A$=INKEY$ 

400  IF  A  $  <  > " Y "  AND  A$<>"N"  THEN  470 
490  IF  A  $  = " N  "  THEN  690 
500  GOSUB  230 

510  PRINT  "WHICH  ONES  TO  SELL?"; 

5S0  A  $  =  I NK  EY  $ 

530  IF  A  $  < " 1  "  OR  A  $  > " 5 "  THEN  520 
540  C=VAL[A$] 

55  0  PRINT  "  0  K  "  C 

560  PRINT  "HOW  MANY  OF"C"TO  SELL"; 

570  INPUT  N 

580  IF  N  >  N ( C ]  THEN  PRINT  "YOU  DON'T  HAVE 
THAT  MANY  1  "  sGOTO  570 
590  REM  *  **********>!■*****#***#*  # 

600  REM  ADJUST  FIGURES  AFTER  SALE 
610  BB=BB+S( C J *N: REM  ADD  VALUE  TO  BANK 
620  N [ C ] =N ( C ) -N : R EM  SUBTRACT  NO.  SOLD 
630  T  V  =  0 ! R  E  M  SET  TOTAL  WORTH  TO  ZERO 
640  REM  NOW  DETERMINE  CURRENT  WORTH 
650  FOR  C=1  TO  5 
660  TV=TV+N( C) *S( C] 

670  NEXT  C 

680  TV  =  TV+BB  s  REM  ADD  IN  BANK  BALANCE 
690  GOSUB  230 

700  REM  ************************ 

71 0  REM  **  BUY  ** 

720  PRINT  "DO  YOU  WANT  TD  BUY  ANY  SHARES 
( Y/N] ?" 

730  A$=INKEY$ 

740  IF  A  $  <  > " Y "  AND  A$<>"N"  THEN  730 
750  IF  A  $  = " N  "  THEN  890 
7  60  GOSUB  2  3  D 

770  PRINT  "WHICH  COMPANY  TO  BUY?"; 

7  B  0  A$  =  INKEY  $ 

790  IF  A  $  < " 1  "  OR  A  $  > " 5  "  THEN  780 
800  C  =  V  A  L [ A  $ ] 

810  PRINT  "  OK" C 

B  2  0  PRINT  "HOW  MANY  OF"C»TO  BUY"; 

030  INPUT  N 

840  IF  N*S[C]  >BB  THEN  PRINT  "YOU  DON'T  H 


AVE  ENOUGH  M 0 N E Y 1 " : G OT 0  830 
850  REM  ************************ 

860  REM  ADJUST  FIGURES  AFTER  BUY 
870  BB=BB-S ( C) *N 

8  8.0  N  (  C  ]  =  N  (  C  ]  +  N 
890  T  V  =  0 

900  FOR  C  =  1  TO  5 
91  0  T  V  =  T  V+  N ( C ] *S ( C  ) 

920  NEXT  C 
930  TV=TV+BB 
940  GQSUB  230 

950  REM  ************************ 

960  REM  MODIFY  ALL  INDICATORS 
970  T  V  =  0 

9  B  0  FOR  C  =  1  TO  5 

990  K  =  I NT ( R  ND ( 1  )  *1 00 ) +1 

1  000  IF  K  <  P [ C ]  THEN  S ( C ) = S t C ) * [ 1  +  ( P ( C ) / 1 
0  00  )) 

1010  K=I NT ( RND [ 1 ) *1 00 ) +1 

1  020  IF  K  <  D [ C )  THEN  S ( C ) = S ( C ) / ( 1  +  [ D ( C ) / 1 
000  )  ) 

1  030  T  V  =  T  V  + [ S ( C  )  *N  [  C }) 

1040  NEXT  C 
1050  TV=TV+BB 
1 060  QQ=QQ*1 .005 
1070  W  = ( TV*1 OO/QQ) — 1 00 
1  08  0  IF  W  =  0  THEN  W=.1 
1  090  W  =  W  +  6 

1100  IF  W<1  THEN  W=1 
1110  IF  W  >  1  5  THEN  W  =  1  5 
1120  RESTORE 
1130  FOR  T  =  1  TO  W 
1140  READ  A  $ 

1150  NEXT  T 
1160  PRINT 

1170  REM  ************************ 

1 1 B  0  REM  GIVE  RATING,  START  NEW  ROUND 
1190  PRINT  "YOUR  RATING  AFTER  THAT  ROUND 
OF  " 

1200  PRINT  "TRADING  IS  '  "  ;  A  $  s  "  '  " 

1210  PRINT:PRINT  "  <PRESS  SPACEBAR  TO 
CONTINUE  > " 

1220  IF  INKEY$<>"  "  THEN  1  220  s  REM  NOTE 
SPACE  BETWEEN  QUOTE  MARKS 
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1230  DAY=D AY+1 
1  240  GOTO  150 

1250  OATA  "HOPELESS", "VERY,  VERY  POOR" 

1  2  6  D  DATA  " T ER R I B L E " , " A WF U L "  , " B AD  " 

1270  DATA  "VERY  ORDINARY", "AVERAGE" 

1280  DATA  " R EASONA B LE" , » A  LITTLE  ABOVE  A 
VERAGE" 

1  2  9  D  DATA  "FAIRLY  G 0 OD " , " G 0 0 D » , " V E R Y  GOD 


1  30  D 
VE" 


DATA  "GREAT"," EX CELLENT»,"SUPERLATI 


If  you  want  to  modify  the  degree  of  difficulty  of  this  simulation, 
change  the  55  in  line  170.  The  lower  the  number  (down  to  30),  the 
easier  it  is  to  make  a  profit  The  higher  the  number  (up  to  80),  the 
more  difficult  it  becomes.  The  simulation  will  not  run  even  remotely 
realistically  if  you  use  values  less  than  30,  or  greater  than  80,  in  line 
170. 
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Running  an 
Automobile 
Company 


The  complex  processes  of  manufacturing  and  sales  are  presented,  al¬ 
beit  in  a  very  simplified  form,  in  this  simulation.  It  took  sixty  years 
for  the  automobile  market  to  become  saturated  in  the  United  States. 
You  have  been  unfortunate  enough  to  be  appointed  as  president  of  a 
major  car  manufacturing  concern  the  very  same  month  that  the  car 
market  really  hits  bottom.  To  save  the  day — and  your  reputation  as  a 
hard-hitting,  straight-from-the-shoulder,  trouble-shootin’,  crisis- 
solvin’  executive— you  must  get  the  tottering  firm  back  on  its  feet 
You  take  over  just  as  the  accountants  announce  that  the  com¬ 
pany  is  losing  $60  million  a  year.  Your  task,  needless  to  say,  is  to  try 
and  make  the  company  profitable. 

Here’s  how  it  begins: 

INDUSTRY  SALES  50000  IN  MONTH  0 


YOU  HAVE  12000  EMPLOYEES 
AVERAGE  WAGES  ARE  *  22995 
OR  $  M  22.9  PER  MONTH 


As  you  can  see,  the  total  sales  within  the  automobile  industry 
for  the  month  before  the  simulation  began  (month  0)  were  50,000 
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units.  You  start  the  simulation  with  your  company  holding  about  a 
quarter  of  the  total  industry  sales,  or  around  12,500  vehicles.  You 
have  four  factories,  which  are  currently  producing  more  vehicles 
than  you  can  sell: 


MAXIMUM  MONTHLY  OUTPUT  ! 
FACTORY  1 i  8900 
FACTORY  2:  3250 

FACTORY  3:  2500 

FACTORY  4s  1625 


TOTAL  OUTPUT  IS  16275 


EFFICIENCY  LEVEL  IS  77  % 

DO  YOU  WANT  TO  EXPAND  OUTPUT  (Y/N)? 

N 

DO  YOU  WANT  TO  SELL  FACTORY  4  [Y/N)? 


When  the  simulation  begins,  the  average  annual  wage  for  each 
employee  is  around  $23,000.  This  will  rise  each  three  months,  due  to 
union  demands  for  adjustments  to  keep  up  with  inflation.  Although 
you  cannot  reduce  wages,  or  refuse  to  include  the  raise  due  to  infla¬ 
tion,  you  can  decide  how  many  people  to  hire  or  fire,  and  at  what  price 
you  will  sell  each  vehicle.  When  the  simulation  begins,  each  car  sells 
for  around  $12,000: 

INDUSTRY  SALES  50000  IN  MONTH  0 


YOU  HAVE  12000  EMPLOYEES 
AVERAGE  WAGES  ARE  S  22995 
OR  $  M  22.9  PER  M 0NTH 


HOW  MANY  EMPLOYEES  TO  HIRE?  0 
HOW  MANY  EMPLOYEES  TO  FIRE?  567 


YOU  HAVE  11433  EMPLOYEES 
AVERAGE  WAGES  ARE  $  22995 

OR  $M  21.9  PER  MONTH 


WHAT  IS  YOUR  SELLING  PRICE?  12345 


102 


Once  you’ve  answered  all  the  relevant  questions,  the  simulation 
reports  back  to  you  on  how  well — or  otherwise — you  have  performed: 


INDUSTRY  SALES  48833  IN  MONTH  1 

YOUR  SALES:  13386  (  27.4  %  OF  TOTAL  ) 


YOU  HAVE  11433  EMPLOYEES 
AVERAGE  WAGES  ARE  S  22995 
OR  $  M  21.9  PER  M  ONTH 


AVERAGE  COST  PER  VEHICLE  IS  $  10192 

AND  AVERAGE  SELLING  PRICE  IS  $  12345 

SD  THE  AVERAGE  PROFIT  IS  $  2152 

OR  $  M  28.8  PER  MONTH 


PROFIT  FOR  THE  MDNTH  IS  $M  6.9 
&  TOTAL  PROFIT  TO  DATE  IS  SM  6.9 


DO  YOU  WANT  TO  RESIGN  {Y/N)7 
N 

That  wasn’t  too  bad.  You  actually  made  a  profit 
The  process  continues: 

INDUSTRY  SALES  48833  IN  MONTH  1 

YOUR  SALES:  13386  {  27.4  %  OF  TOTAL  ) 


YOU  HAVE  10233  EMPLOYEES 
AVERAGE  WAGES  ARE  $  22995 
OR  $  M  19.6  PER  MONTH 


AVERAGE  COST  PER  VEHICLE  IS  *  10192 

AND  AVERAGE  SELLING  PRICE  IS  *  12345 
SO  THE  AVERAGE  PROFIT  IS  $  2152 

OR  SM  28.8  PER  MONTH 


PROFIT  FOR  THE  MONTH  IS  SM  6.9 
6  TOTAL  PROFIT  TO  DATE  IS  SM  6.9 


WHAT  IS  YOUR  SELLING  PRICE?  24000 
TOO  BIG  A  CHANGE  FOR  THE  MARKET 
WHAT  IS  YOUR  SELLING  PRICE?  14000 
INDUSTRY  SALES  51485  IN  MONTH  2 
YOUR  SALES:  6435  (  12.5  %  OF  TOTAL  ) 
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YOU  HAVE  10233  EMPLOYEES 
AVERAGE  WAGES  ARE  $  22995 

OR  *  M  19.6  PER  MONTH 


AVERAGE  COST  PER  VEHICLE  IS  *  11630 

ANO  AVERAGE  SELLING  PRICE  IS  $  14000 

SO  THE  AVERAGE  PROFIT  IS  $  2369 

OR  $  H  15.2  PER  MONTH 


PROFIT  FOR  THE  MONTH  IS  $M-4.4 
&  TOTAL  PROFIT  TO  DATE  IS  $M  2.5 


00  YOU  WANT  TO  RESIGN  (Y/NJ? 

N 


Just  when  you  think  you’re  getting  it  all  under  control,  inflation 
exacts  its  toll: 


INFLATION  RATE  THIS  QUARTER  IS  2.5  * 

AVERAGE  WAGES  BILL  WILL  NOW  RISE  TO 
$  23569  PER  EMPLOYEE 

ANY  KEY  TO  CONTINUE 


Your  next  month  is  not  very  good: 

INDUSTRY  SALES  49184  IN  MONTH  3 
YOUR  SALES:  6837  t  13.9  %  OF  TOTAL  ) 


YOU  HAVE  9743  EMPLOYEES 
AVERAGE  WAGES  ARE  $  23569.88 

OR  $  M  19.1  PER  MONTH 


AVERAGE  COST  PER  VEHICLE  IS  $  11835 

ANO  AVERAGE  SELLING  PRICE  IS  %  14500 

SO  THE  AVERAGE  PROFIT  IS  $  2664 

OR  $  M  18.2  PER  MONTH 


PROFIT  FOR  THE  MONTH  IS  $M-1 
&  TOTAL  PROFIT  TO  DATE  IS  $M  1.5 


00  YOU  WANT  TO  RESIGN  [Y/N)? 
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You  start  the  simulation,  as  you’ve  seen,  with  four  factories.  You 
have  the  option  of  at  any  time  selling  off  factory  number  four.  Alter¬ 
natively,  you  can  increase  the  output  of  the  factories.  You’ll  find  that 
the  minimum  cost  per  vehicle  (and  therefore  the  maximum  profit  per 
sale)  occurs  when  your  factories  are  running  at  85%  efficiency. 

Let’s  decide  to  sell  off  factory  four,  to  let  the  income  from  that 
sale  offset  our  losses: 

YOUR  MONTHLY  SALES  ARE  5517 


MAXIMUM  MONTHLY  OUTPUTS 
FACTORY  Is  8900 
FACTORY  2:  3250 

FACTORY  3s  2500 
FACTORY  4s  1625 


TOTAL  OUTPUT  IS  1 6275 


EFFICIENCY  LEVEL  IS  33  * 

DO  YOU  WANT  TO  EXPAND  OUTPUT  (Y/NJ7 
N 

DO  YOU  WANT  TO  SELL  FACTORY  4  (Y/N)? 

Y 

FACTORY  4  IS  VALUED  FOR  SALE  AT  SM1D4 
YOU  CAN'T  REBUY  IT  LATER  IF 
YOU  SELL  IT.  .  . 

DO  YOU  WANT  TO  SELL  (Y/N)? 

Y 

I’ve  tried  this  simulation  several  times.  Each  time,  the  same  fate 
occurs.  Perhaps  I’m  just  not  cut  out  to  run  a  multi-million-dollar 
business: 

INDUSTRY  SALES  4B991  IN  MONTH  10 
YOUR  SALES:  5727  (  11.6  %  OF  TOTAL  ) 


YOU  HAVE  9703  EMPLOYEES 
AVERAGE  WAGES  ARE  *  24521.51 

OR  $  M  19.8  PER  MONTH 


AVERAGE  COST  PER  VEHICLE  IS  $  12418 

AND  AVERAGE  SELLING  PRICE  IS  $  15400 
SO  THE  AVERAGE  PROFIT  IS  $  2981 
OR  $  M  17  PER  MONTH 
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PROFIT  FOR  THE  MONTH  IS  SM-2.8 
&  TOTAL  PROFIT  TO  OATE  IS  SM  68.4 


00  YOU  WANT  TO  RESIGN  (Y/N)? 


YOU  JUST  MAOE  YOUR  TWELFTH  MONTHLY 

LOSS  IN  A  ROW . 

YOUR  EMPLOYMENT 
IS  HEREBY  TERMINATED  I  I 


A  much  better  outcome  is,  however,  possible  for  those  who  are 
more  skilled  than  I  am: 


WELL  OONEI  THE  COMPANY  HAS  MAOE  MORE 
THAN  $  M  2  0  0  .  YOU'VE  BEEN  MAOE 

A  MEMBER  OF  THE  BOARD 


Here  are  the  principal  variables,  as  they  are  assigned  at  the  start 
of  this  simulation: 


16  30 
16  40 
16  50 
1660 
1670 
1680 

16  90 
1700 
1710 
1  720 
1  730 
1  740 

17  50 
1760 
17  70 
1780 
1790 


REM  ************************* 

REM  INITIALIZATION 
CLS 

RANDOMIZE  V A L [ R I G H T $ [ T I M E $  ,  2  )  ) 

DIM  M [ 5 )  »  Y [ 5 ) 

NE=1 2000: REM  STARTING  NO  EMPLOYEES 
A W=  2  2  9  9  5  s  R  EM  STARTING  AVERAGE  WAGE 
AC=11100:REM  COST  P R I C E/ V E H I C L E 
AS=12000:REM  SELLING  PRICE 
MI=50*1000;MC=10100 
Y [ 3 ] =1 2500 

MS  =  25  :  EF  =  77  s  F  A  =  1 60: SF  =  0:MT  =  0 
FOR  J=1  TO  5 
READ  M [ J ) 

NEXT  J 
RETURN 

DATA  8900,3250,2500,1625,16275 
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As  you  can  see,  the  REM  statements  allow  you  to  trace  the  var¬ 
ious  formulas  that  are  used  in  this  simulation: 

220  INPUT  "HOW  MANY  EMPLOYEES  TO  H  I  R  E  "  5  H 
E 

230  NE=NE+HE: IF  HE>0  THEN  260 

240  INPUT  "HOW  MANY  EMPLOYEES  TO  F  I  R  E  "  ;  H 

E 

250  N  E  =  N  E-H  E 
260  60SUB  650 

270  PI =AS: REM  SET  PI  EQUAL  TO  OLD  PRICE 
280  INPUT  "WHAT  IS  YOUR  SELLING  PRICE";A 
S 

290  REM  NEXT  LINE  REJECTS  TOO  BIG  A 
CHANGE  IN  SELLING  PRICE 
300  IF  ABS  l  PI -AS}  >2500  THEN  PRINT  "TOO  B 
IG  A  CHANGE  FOR  THE  MARKET":G0T0  280 
310  CLS 

320  PRINT sPRINT SPRINT 

3  30  MI  =  I NT (  RND ( 1  ] *4000  ) +48*1  000  3  REM  THIS 
MONTH'S  SALES  BY  INDUSTRY 
340  C=C+1 : REM  COUNTS  NUMBER  OF  MONTHS 

350  IF  C  <  3  THEN  470 

360  M  =  I NT ( R ND ( 1  )  *1 0  +  1  }/4: REM  INFLATION 
370  CLS 

380  PRINT  "INFLATION  RATE  THIS  QUARTER  I 
S  "  M  "  *  » 

390  PRINT  "AVERAGE  WAGES  BILL  WILL  NOW  R 
I  S  E  T  D  » 

400  AW=(AW*M/1 OOJ+AW 

410  PRINT  TAB(8]  ;  "  $"INT(AW) "  PER  EMPLOY 
EE" 

420  IF  INKEYSO""  THEN  420 

430  PRINTsPRINT  TAB(12);"ANY  KEY  TO  CONT 
I  N  U  E  " 

440  IF  INKEY*="»  THEN  440 
450  FA=[FA*M/1 00] +FA 
460  C  =  0 

470  Y ( 1  )  =N E*1 5/1 2 : R EM  SALES  BASED  ON 
NUMBER  OF  EMPLOYEES 
480  Y(2]=(100-AS/FA]*MI/100:REM  SALES 
BASED  ON  MONTHLY  INDUSTRY  SALES 
490  REM  NEXT  LINES  SET  LOWEST  FIGURE 
FROM  Y ( 1  ]  ,  Y [ 2  )  ,  M [ 5 )  EQUAL  TO  Y [ 3 ) 
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500  IF  Y ( 1 ) <Y l 2 )  AND  Y(1)<M(5)  THEN  Y{3) 
=  Y  t 1  )  : GOTO  540 

510  IF  Y { 2 )  < Y  t 1  )  AND  Y(2)<M[5)  THEN  Y(3] 
=Y [ 2 ) : BOTO  540 
520  Y [ 3 ) =M { 5  } 

530  REM  NEXT  LINES  DETERMINE 
MDNTHLY  SALES 

540  IF  ABS ( PI -AS)  <501  THEN  Y ( 3 ) = 3  .  6  * Y { 3 ) 
/  3 

5  50  IF  Y I  3 )  >M ( 5 )  THEN  Y ( 3 ) = Y (  3  ) - 1  9 7  5  ! G OT 
0  550 

560  MC= ( MC*M/1 DO ) +MC 

5  7  D  EF=Y [ 3 }/M [ 5 ) *1 00 :  REM  EFFICIENCY  % 

AS  SALES  DIVIDED  BY  TOTAL  OUTPUT 
580  AC=[MC*(ABS(85-EF)/3)/100)+MC:REM 

AVERAGE  COST  PER  VEHICLE 
590  MP=( [ Y[ 3) * ( AS-AC)) -{ NE*AW/1 2 ) ) : REM 
MONTHLY  PRDFIT 
600  MP=I NT [ MP/ [ 1 00*1 OOD )) 

610  TP=TP+MP/1 0 : R EM  TOTAL  PROFIT 
IN  MILLIONS 


6  20  M  =  0 


The  complete  listing  for  DETROIT  CITY  is  in  the  next  chapter. 
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IB 


The 

DETROIT  CITY 
Listing 


Here’s  the  complete  listing  of  the  DETROIT  CITY  program: 

ID  REM  DETROIT  CITY 

20  GDSUB  1640: REM  INITIALIZE 

3D  GOT  D  110 

4D  MT=MT+1 :REM  COUNTS  MONTHS 

SD  GDSUB  650 

60  IF  T  P  >  2  0  0  THEN  1560 

70  PRINT  "DO  YOU  WANT  TO  RESIGN  [  Y  /  N  }  ?  » 
BO  GOSUB  1010 

90  IF  A  $  = "  Y "  THEN  PRINT  "OK,  CHIEF" :END 
1  OD  GOSUB  1 3  8  D 
1 1 D  GOSUB  650 

1  2  D  FOR  T  =  1  TO  1DOO:NEXT  T 
1 3  D  GOSUB  B  5  0 

140  PRINT  "DO  YOU  WANT  TD  EXPAND  OUTPUT 
{  Y/ N 1  ?  " 

150  GOSUB  1 01 D 
1 6  D  IF  A  $  =  " Y "  THEN  10BO 
170  IF  S  F  =1  THEN  21D 

180  PRINT  "DO  YOU  WANT  TO  SELL  FACTORY  4 
[Y/N J  ?" 
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190  GOSUB  1010 

200  IF  A  $  = "  Y  "  THEN  1250 

210  GOSUB  650 

220  INPUT  "HOW  MANY  EMPLOYEES  TO  H I R  E "  j  H 
E 

230  NE=NE+HEs IF  HE>0  THEN  260 

240  INPUT  "HOW  MANY  EMPLOYEES  TO  FIRE"  j  H 

E 

250  NE=NE-HE 
260  GOSUB  650 

270  PI =AS i REM  SET  PI  EQUAL  TO  OLD  PRICE 
280  INPUT  "WHAT  IS  YOUR  SELLING  P  R  I  C  E  "  j  A 
S 

290  REM  NEXT  LINE  REJECTS  TOO  BIG  A 
CHANGE  IN  SELLING  PRICE 
300  IF  ABS [ PI -AS} >2500  THEN  PRINT  "TOO  B 
IG  A  CHANGE  FOR  THE  MARKET" : GOTO  280 
310  CLS 

320  PRINT  SPRINT  SPRINT 

3  30  MI =1  NT ( RND ( 1  } *  4000  } +4B*1  000  s R EM  THIS 
MONTH'S  SALES  BY  INOUSTRY 
340  C=C+1 sREM  COUNTS  NUMBER  OF  MONTHS 
3  50  IF  C  <  3  THEN  470 

36  0  M  =  I NT ( RNO ( 1  }  *1 0  +  1  } /4s R EM  INFLATION 
370  CLS 

380  PRINT  "INFLATION  RATE  THIS  QUARTER  I 
S  "  M  "  %  " 

390  PRINT  "AVERAGE  WAGES  BILL  WILL  NOW  R 
ISE  TO" 

400  A  W  =  ( A  W  *  M  /  1 00) +AW 

410  PRINT  TAB(B) ;"$"INT(AW]"  PER  EMPLOY 
EE" 

420  IF  INKEY $<>""  THEN  420 

430  PRINTsPRINT  TAB(12);"ANY  KEY  TO  CONT 
I  N  U  E  " 

440  IF  INKEY$=""  THEN  440 
450  F  A  = [ F  A  *  M  /  1 00 ) +FA 
460  C  =  0 

470  Y [ 1 ] =NE*1 5/1 2 : REM  SALES  BASEO  ON 
NUMBER  OF  EMPLOYEES 
480  Y ( 2 ] =[ 1 OO-AS/FA] *MI/1 00 s REM  SALES 
BASED  ON  MONTHLY  INOUSTRY  SALES 
490  REM  NEXT  LINES  SET  LOWEST  FIGURE 
FROM  Y ( 1  )  »Y(2]  i  M ( 5  )  EQUAL  TO  Y[3] 


500  IF  Y | 1  J  <  Y  C  2 )  AND  Y(1)<M(5]  THEN  Y [ 3 ] 
=  Y  (1  ]  s  G  0T  0  540 

510  IF  Y [ 2  ]  <  Y  t 1  ]  AND  Y(2]<M[5]  THEN  Y  J  3 ] 
=  Y  t  2 ]  : GOTO  540 
520  Y [ 3 ) =M ( 5  ] 

530  REM  NEXT  LINES  DETERMINE 
MONTHLY  SALES 

540  IF  ABS(PI-AS)  <501  THEN  Y t 3 ] = 3 . 6  * Y [ 3 ] 
/  3 

550  IF  Y [ 3 ] >M [ 5 )  THEN  Y ( 3 ) =Y [ 3 ) -1 9 7 5 s G OT 
0  550 

560  MC= [ MC*M/1 00 ] +MC 

570  EF  =  Y t 3  ) /M t 5 ) *1 00 s REM  EFFICIENCY  * 

AS  SALES  DIVIDED  BY  TOTAL  OUTPUT 
580  AC=(MC*(ABS{B5-EF)/3)/100]+MCSREM 
AVERAGE  COST  PER  VEHICLE 
590  MP=[  (Y (3) *(AS  —  AC]  )-(NE*AW/12)  ]  : R  EM 
MONTHLY  PROFIT 
600  MP=I NT ( MP/{ 1 00*1 000 )) 

610  TP=TP+MP/1 0 : REM  TOTAL  PROFIT 
IN  MILLIONS 

6  20  M  =  0 
630  GOTO  40 

640  REM  ************************* 

650  REM  REPORT  PRINTOUT 
660  CLS 

670  PRINT  "INDUSTRY  SALES"MI"IN  MONTH "MT 

6  B  0  IF  M  T  >  0  THEN  PRINT  "YOUR  SALES:"INT( 

Y  C  3  )  J  "  [  "  I  NT ( Y [ 3  ]  *1  000/MI ] / 1 0 "%  OF  TOTAL 

]  " 

690  PRINT  " - - - 

700  PRINT  "YOU  HAVE"NE" EMPLOYEES" 

710  PRINT  "AVERAGE  WAGES  ARE  $"AW 

720  PRINT  »  OR  $ M " I  NT ( A W * N E/ [  1  0  0  *  1  0 0 0  ) / 1 

2]/10"PER  MONTH" 

730  PRINT  " - 

740  IF  M  T  =  0  THEN  RETURN 

750  PRINT  "AVERAGE  COST  PER  VEHICLE  IS 
$"INTt AC) 

7  6  D  PRINT  "AND  AVERAGE  SELLING  PRICE  IS 
$  "  I  N  T  [  A  S  ) 


770  PRINT  "SO  THE  AVERAGE  PROFIT  IS  $"IN 
Tt AS-AC] 

780  PRINT  "OR  $  M  "  I  N  T  { [AS-AC] *Y{3]/[100*1 
0  0  0  ]  ] / 1 0 " PER  MONTH" 

790  PRINT  " - 

800  PRINT  "PROFIT  FOR  THE  MONTH  IS  $  M  » M  P 
/I  0 

810  PRINT  "&  TOTAL  PROFIT  TO  DATE  IS  $M" 
INT [ T  P  *  1 0 ]/1 0 

820  PRINT  " - 

830  RETURN 

840  REM  ************************* 

850  REM  MONTH  REPORT 
860  CLS 

870  IF  M  T  >  0  THEN  PRINT  "YOUR  MONTHLY  SAL 
ES  ARE" INT (Y (3)  ) 

B  8  0  PRINT  " - 

890  PRINT  "MAXIMUM  MONTHLY  OUTPUT:" 

900  PRINT  TA8(3)  {"FACTORY  1:"INT(M[1)] 
910  PRINT  TA8(3);" FACTORY  2  :  "  I  N  T  [  M  (  2  )) 
920  PRINT  TAB (3)  { "FACTORY  3:"INT[M(3)) 
930  IF  S  F  =1  THEN  960 

940  PRINT  TAB ( 3 ){ "FACTORY  4|"XNT(N[4)) 

95  0  PRINT  " - - - 

960  PRINT  "TOTAL  OUTPUT  IS"INT[Ml5j) 

970  PRINT  " - 

980  PRINT  "EFFICIENCY  LEVEL  I  S » I N T [ E F )  " % 

990  RETURN 

1000  REM  ************************* 

1010  REM  GET  REPLIES 
1020  A  $  =  I  NK  EY  $ 

1030  IF  A  $  <  > " Y "  AND  A  $  <  >  "  N  »  THEN  1020 
1040  PRINT  TAB[22} ;  A  $ 

1050  FOR  J=1  TO  500 : NEXT  J 
1060  RETURN 

1070  REM  ************************* 

1080  REM  INCREASE  OUTPUT? 

1  090  IF  M [ 4 ] =  0  THEN  X  =  15sGDT0  1110 
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1100  x=1 8 

1110  PRINT  "IT  WILL  COST  $M"X"  TO  EXPANO 

1120  PRINT  T  A  8  [  8  )  ;  "  OUTPUT  BY  IV 

1130  PRINT  " - 

1140  PRINT  "HOW  MANY  %  00  YOU  WISH  TO  RA 
ISE  OUTPUT?" 

1150  INPUT  EP : I F  EP<0  OR  EP>100  THEN  115 
0 

1160  M [ 5 ] =0 

1170  FOR  T  =  1  TO  4 

1180  M [ T J =M ( T) +M [ T) *EP/1 00 

1190  M[5)=M[5]+M(TJ 

1200  NEXT  T 

1210  TP=TP— EP*X 

1  220  FOR  T  =  1  TO  50  0  :NEXT  T 

1230  GOTO  170 

1240  REM  * *********************** * 

1250  REM  SALE  OF  FACTORY  FOUR 
1260  PRINT  "FACTORY  4  IS  VALUED  FOR  SALE 
AT  $  M 1  0  4 " 

1270  PRINT  "YOU  CAN'T  REBUY  IT  LATER  IF 
YOU  SELL  IT..." 

1280  PRINT  "00  YOU  WANT  TO  SELL  [Y/N]?" 

1 290  GOSUB  1010 
1300  IF  A  $  =  "  N  "  THEN  210 
1310  T  P  =  T  P  +  1 04 
1  320  S  F  =  1 

1  330  M ( 5  J  =M ( 1  ]  +M ( 2) +M ( 3 ] 

1340  M ( 4 ] =0 
1350  GOTO  170 

1370  REM  CHECK  ON  LOSSES 

1  38  0  IF  M  P  >  0  THEN  SA=0:GOTO  1480 

1  3  9  0  S  A  =  S  A  +  1 

1400  IF  S  A  > 1 1  THEN  1420 

1 41 0  GOTO  1 4B0 

1420  CLSsPRINT 

1  430  PRINT  "YOU  JUST  M  AO  E  YOUR  TWELFTH  M 
0  N  T  H  L  Y  " 

1  440  PRINT  "LOSS  IN  A  ROW . 

1  450  PRINT  TAB ( 6 ]  ;  " YOUR  EMPLOYMENT" 
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1  46  0  PRINT  T  A  B  (  6  )  j"  IS  HEREBY  TERMINATED! 


1  470  END 

1  480  IF  TP  >  =  -250  THEN  1530 
1490  CLSsPRINT 

150  0  PRINT  11  UNDER  YOUR  MANAGEMENT,  THE  C 
OMPANY  HAS" 

1510  PRINT  "LOST  MORE  THAN  $M250!" 

1520  GOTO  1 450 
1  530  IF  T  P  >  2  0  0  THEN  1570 
1540  RETURN 

1550  REM  ************************* 

1560  REM  SWEET  SWEET  SUCCESS!!! 

1570  CLS:PRINT 

1580  PRINT  "WELL  DONE!  THE  COMPANY  HAS  M 
A  D  E  MORE" 

1590  PRINT  "  THAN  S  M  2  0  0  .  YOU'VE  BEE 

N  MADE" 

1600  PRINT  "  A  MEMBER  OF  THE  BOAR 

D  " 

1610  FOR  T  =  1  TO  2  0  0  0  : N  EX  T  T 
1620  ENO 

1630  REM  ************************* 

1640  REM  INITIALIZATION 
1650  CLS 

1660  RANOOMIZE  V  A  L  l  R  I  G  H  T  $  [  T  I  M  E  $  ,  2  ]) 

167  0  0  I M  M [ 5 |  , Y  C  5 ) 

1  680  N  E  =  1  2  0  0  0  : R  EM  STARTING  NO  EMPLOYEES 
1690  AW=22995sREM  STARTING  AVERAGE  WAGE 
1700  AC=11100:REM  COST  P R I C E/ V E H I C L E 
1710  AS=1 2000: REM  SELLING  PRICE 
1  720  M  1  =  50*1  000  S M C  =  1 01 00 
1730  Y [ 3 ] =1 2500 

1740  MS  =  25: EF  =  77:FA  =  1 6  0 : S  F  =  0 :MT  =  0 
1750  FOR  J=1  TO  5 
1  76  0  READ  M [ J) 

1770  NEXT  J 
1780  RETURN 

1790  DATA  8900,3250,2500,1625,16275 
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-  7 


Life  at  the 
Super  Bowl 


It  all  started  back  in  1823,  at  a  very  upper  class  school  in  England.  A 
Rugby  School  student,  William  Webb  Ellis,  was  playing  soccer  one 
day  when  he  picked  up  the  ball,  tucked  it  under  his  arm,  and  ran  fran¬ 
tically  across  his  opponent’s  goal.  In  this  moment  the  game  that  later 
became  rugby  football  was  bom.  From  rugby  football  came  rugby 
league,  and  eventually  GRIDIRON. 

Some  students  from  Harvard  in  1874  saw  the  game,  as  it  had 
then  evolved,  under  way  at  Montreal  University,  and  liked  what  they 
saw.  They  took  some  of  the  Montreal  rules  and  used  them  to  modify 
a  soccerlike  game  that  was  already  gaining  favor  in  the  States. 

The  game  took  off,  but  was  so  rough  and  caused  so  many  inju¬ 
ries  that  at  the  turn  of  the  century  many  colleges  called  for  it  to  be 
banned.  However,  Teddy  Roosevelt,  who  liked  the  game  (and  most 
other  rugged  sports),  suggested  that  instead  of  banning  it,  the  game 
should  be  made  simpler.  A  committee  formed  of  leading  coaches, 
managers,  and  players  met  in  1906  to  consider  Roosevelt’s  sugges¬ 
tion,  and  from  this  committee  came  the  GRIDIRON  we  know  today. 

In  our  program,  you  can  either  play  against  the  computer  team 
(known  as  the  “Silicon  Cowboys”)  or  against  another  human  being. 
In  the  game  shown  here,  I  decided  to  play  against  the  computer: 


ONE  PLAYER  OR  TWO 
?  1 
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AND  THE  NAME  OF  THE  VISITING  TEAM? 

?  HABTNELL ' S  RAIDERS 

In  this  simulation,  you  have  the  option  of  throwing,  carrying,  or 
punting  (including  field  goal  attempts)  the  ball.  The  program  allows 
for  four  fifteen-minute  quarters,  and  tests  your  decision-making 
skills  and  reflexes. 

THERE  ARE  60  MINUTES  TO  GO 

SILICON  COWBOYS  TO  KICK  OFF 
YOU  ARE  ON  YOUR  OWN  35  YARO  LINE 
SILICON  COWBOYS  HAVE... 

KICKED  1  YARDS 
KICKED  2  YARDS 
KICKED  3  YAROS 

KICKED  52  YARDS 
KICKED  53  YARDS 
KICKED  54  YARDS 
KICKED  55  YARDS 
THE  BALL  IS  CAUGHTI 
AND  RETURNED  1  YARDS 
AND  RETURNED  2  YARDS 
AND  RETURNED  3  YARDS 


AND  RETURNED  27  YARDS 
AND  RETURNED  2B  YARDS 
AND  RETURNED  29  YARDS 


THE  BALL  IS  D  OWN  DN 

HARTNELL'S  RAIDERS'S  39  YARD  LINE 
>  PRESS  ANY  KEY  < 

SILICO  0  HARTNE  0 
60  MINUTES  TO  GO 


HARTNELL'S  RAIDERS  IN  POSSESSION 
0  DOWN 

ID  YARDS  TO  GO 


START  AT  39  YARD  LINE 
NOW  ON  39  YARD  LINE 
61  YARDS  TD  TOUCHDOWN 
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ON  THIS  PLAY  HARTNELL'S  RAIDERS  CAN 
EITHER  1  -  THROW 

2  -  CARRY 
OR  3  -  PUNT 

Once  you’ve  decided  on  your  play,  the  computer  will  begin  a 
count  from  one  to  eleven.  You  have  to  get  rid  of  the  ball  during  that 
count.  If  you  don’t  do  so  in  time,  you’ll  be  sacked  and  lose  yardage  or 
possession. 

HARTNELL'S  RAIDERS,  YOUR  QUARTERBACK  HAS 
GOT  THE  BALL 


WAIT  FOR  THE  COUNT,  HARTNELL'S  RAIOERS, 
THEN  HIT  ANY  KEY  ,  .  . 

1 

2 


5 

6 


NICE  PUNT... 

YOU ' VE  KICKEO  24  YARDS 


The  rules  behind  this  simulation  tempt  you  to  wait  as  long  as 
possible  before  delivering  the  ball.  The  longer  you  wait,  the  farther 
the  ball  will  travel.  For  example,  if  you  decide  to  throw  the  ball,  and 
you  stop  the  count  on  two,  the  ball  will  only  travel  ten  yards,  but  if 
you’d  stopped  the  count  on  ten,  it  would  have  gone  forty  yards. 


THE 

AND 

AND 

AND 


BALL  IS  CAUGHTI 
RETURNED  1  YARDS 
RETURNED  2  YAROS 
RETURNED  3  YARDS 


AND  RETURNED  17  YARDS 
AND  RETURNED  1 8  YARDS 
AND  RETURNED  19  YARDS 
AND  RETURNED  20  YARDS 
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THE  BALL  IS  DOWN  DN 

SILICDN  COWBOYS'S  5B  YARO  LINE 


SI  LI C  0  0  HARTNE  D 
59.7  MINUTES  TO  GO 


SILICON  COWBOYS  IN  POSSESSION 
D  D  DWN 

10  YARDS  TO  GO 


START  AT  59  YARD  LINE 
NOW  ON  58  YARD  LINE 
42  YARDS  TO  TOUCHDDWN 


ON  THIS  PLAY  SILICON  CDWBOYS  CAN 
EITHER  1  -  THROW 

2  -  CARRY 
OR  3  -  PUNT 


As  you  can  see ,  the  fact  that  you’ve  thrown  a  given  distance  does 
not  mean  the  play  will  be  completed  successfully.  The  chances  of  a 
play  being  complete  are  linked  to  the  distance  thrown. 

T  DUCHD  OWN  I  I  I 
TDUCHDOWN  I  I  I 
T  OUCHD  OWN  I  I  I 
TOUCHD  OWN  I  I  ! 

TDUCHD  DWN I  I  I 
SILICDN  COWBDYS  6 
HARTNELL  1  S  RAIDERS  D 
TD  PLAY  FDR  EXTRA  PDINT 
>  PRESS  ANY  KEY  < 


There  is  a  lot  of  action  in  this  simulation,  and  you’re  sure  to  en¬ 
joy  dressing  it  up  even  more.  Here  are  a  few  additional  scenes  of  the 
program  in  action: 

AND  RETURNED  27  YARDS 
ANO  RETURNED  28  YARDS 
AND  RETURNED  29  YARDS 
ANO  RETURNED  30  YARDS 
AND  RETURNED  31  YARDS 
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THE  BALL  IS  OOWN  ON 

HARTNELL'S  RAIOERS'S  44  YARO  LINE 

>  PRESS  ANY  KEY  < 

OK 

PERI  00  OVER 
P  ER  I  00  OVER 
PERIOO  OVER 
P  ER I  00  OVER 
PERIOO  OVER 
PERIOO  OVER 
PERIOO  OVER 
PERIOD  OVER 
PERIOO  OVER 
PERIOO  OVER 

SI LICON  COWBOYS  27 
HARTNELL'S  RA 10  ERS  6 

>  PRESS  ANY  KEY  < 


PERIOO  OVER 
PERIOO  OVER 
PERIOO  OVER 
PERIOO  OVER 
PERIOO  OVER 

SI LICON  COWBOYS  27 
HARTNELL'S  RAIOERS  6 

>  PRESS  ANY  KEY  < 

OK 

15  MINUTES  TO  GO 


HARTNELL'S  RAIOERS  IN  POSSESSION 
0  OOWN 

10  YAROS  TO  GO 


START  AT  44  YARO  LINE 
NOW  ON  44  YARO  LINE 
56  YAROS  TO  TOUCHOOWN 


ON  THIS  PLAY  HARTNELL'S  RAIOERS  CAN 
EITHER  1  -  THROW 

2  -  CARRY 
OR  3  -  PUNT 
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5 

6 


GREAT  RUNNING  BY  THE  OPPOSITION  HAS 
CAUSED  YOU  TO  LOSE  3  YAROS 
>  PRESS  ANY  KEY  < 

OK 

GAME  OVER 
GAME  OVER 
GAME  OVER 
GAME  OVER 
GAME  OVER 
GAME  OVER 
GAME  OVER 
GAME  OVER 
GAME  OVER 
GAME  OVER 

SILICON  COWBOYS  40 
HARTNELL ' S  RAIOERS  6 


The  listing  of  GRIDIRON  is  given  in  the  next  chapter. 
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The 

GRIDIRON 

Listing 


When  you  want  to  try  out  for  the  Green  Bay  Packers,  the  New  York 
Jets,  or  the  Miami  Dolphins,  enter  and  run  this  listing: 

10  REM  GRIDIRON 
20  CLS 

30  RANDOMIZE  VAL[RIGHT$[TIME$,2] ) 

40  GOSUB  70 
50  GOTO  220 

60  REM  a*******#*#****####***#* 

70  FOR  X=1  TO  1500:NEXT  X 
B0  RETURN 

100  PRINT  A  $ ; S  A 
110  PRINT  B  $ ; S  B 
120  RETURN 

140  IF  Z$  =  A$  THEN  Z$=B$:RETURN 
1 50  Z  $  =  A  $ : RETURN 

170  IF  INKEYSO""  THEN  170 
1 B  0  PRINT  "  >  PRESS  ANY  KEY  <" 

190  IF  INKEY$=" "  THEN  190 
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200  PRINT  TAB ( 20 ) j " OK" i RETURN 
210  REM  *************$********** 

220  REM  INITIALIZE 

230  DEF  FNA{X)=INT(RND(1 ) *  X  )  + 1 
240  PRINT  "ONE  PLAYER  OR  TWO" 

250  INPUT  X 

260  IF  X<1  OR  X  >  2  THEN  250 

270  IF  X  =  1  THEN  V C  =  1  ; A  $ = " S I L I C 0 N  COWBOYS 
" ! G  OT  0  3  00 

2  B  0  PRINT  "WHAT  IS  THE  NAME  OF  THE  HOME 
TEAM?" 

2  90  INPUT  A  $  :  I F  A$  =  ""  THEN  290 

300  PRINT  "AND  THE  NAME  OF  THE  VISITING 
TEAM?" 

310  INPUT  B$sIF  B  $  = " "  THEN  310 
320  Z$=A$sNU=35 
330  CLS 

340  PRINT  "THERE  ARE"INTt10*(60-(W/4]]]/ 
10  "MINUTES  TO  GO" 

350  PRINT  TAB(BJ;Z$"  TO  KICK  OFF" 

360  PRINT  "YOU  ARE  ON  YOUR  OWN "NU" YARD  L 
I  NE" 

370  IF  VC=1  AND  Z$=A$  THEN  GOSUB  70:G0T0 
400 

3  B  0  PRINT  "TO  KICK  OFF..." 

390  GOSUB  170 

400  A=FNA[20]+40 

410  PRINT  Z$j"  HAVE..." 

420  FOR  X= 1  TO  A 

430  PRINT  TAB[X/3]  }" KICKED "X"  YARDS" 

440  NEXT  X 
450  N  U  =  N  U  +  X 
460  GOSUB  70 

470  PRINT  "THE  BALL  IS  CAUGHT! " 

480  GOSUB  70 
490  A=  F  N  A ( 3  0 ) +1 0 
500  FOR  X=1  TO  A 

510  PRINT  TAB [ X/5 )  ;  " AND  R E T U R N E D " X " Y A R D S 
520  NEXT  X 

530  NU=ABS[100-NU+X] 

540  GQSU8  140 

550  PRINT  - 
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560  PRINT  "THE  BALL  IS  DOWN  ON" 

57  0  PRINT  Z  $  "  1 S"  NU"YARD  LINE" 

5  B  0  IF  Z  $  =  A  $  AND  VC  =  1  THEN  GOSUB  70sGOTO 
60  0 

590  GOSUB  170 

600  T  G  =  1 0 : D  =  0 : SL  =  NU 

610  IF  W  =  60  OR  W  =  1  8  Q  THEN  S010 

620  IF  W=1 20  THEN  2070 

630  IF  W  =  240  THEN  2140 

640  CLS 

650  PRINT  LEFTS [ A$ , 6 ) | SA j LEFTS [ B $ , 6 ) ; SB 
660  PRINT  INT[10*l60-(W/4)  )  ]/1. 0"  MINUTES 
TO  GO" 

670  GOSUB  70 

68  0  PRINT  " - 

690  PRINT  Z$"  IN  POSSESSION" 

7  0  0  PRINT  T  A  B [ 4 )  ;D"DOWN" 

710  PRINT  T  A  B  (  4  ] ;TG" YARDS  TO  GO" 

7  20  PRINT  " - 

730  PRINT  "START  AT" SL" YARD  LINE" 

740  PRINT  "NOW  ON" NU" YARD  LINE" 

750  PRINT  1 00-NU"YARDS  TO  TOUCHDOWN" 

760  PRINT  » - 

770  PRINT  "ON  THIS  PLAY  "j 

7  B  0  IF  Z  $  =  A  $  THEN  PRINT  AS;"  CAN":GOTO  B 
00 

790  PRINT  B  $  5 "  CAN" 

BOO  PRINT  "EITHER  1  -  THROW" 

810  PRINT"  2  -CARRY" 

820  PRINT  "  OR  3  -  PUNT" 

8  30  P  =  0 

840  IF  Z$  =  AS  AND  VC=1  AND  D<3  THEN  P=2:G 
OTO  900 

850  IF  Z$  =  AS  AND  VC=1  AND  TG<7  THEN  P=2: 
GOTO  900 

860  IF  Z  $  =  A  $  AND  VC  =  1  AND  ( 1 00 -NU ]  <31  TH 
EN  P  =  3 : G  OT  0  900 

870  IF  Z  $  =  A  $  AND  VC  =  1  THEN  P  =  1sG0T0  900 
8  B  0  K$  =  INKEY$:IF  K$<"1"  OR  K$>"3"  THEN  8 
80 

89  0  P  =  VAL(K$J  sPRINT  T  A  B  [  1  0  ]  ;  "  0  K  »  P 
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900  GOSUB  70 
910  W=W+1 
920  CLS 

930  PRINT  Z  $  s " ,  YOUR  QUARTERBACK  HAS" 
940  PRINT  T  A  B  {  8  ) ; "GOT  THE  BALL" 

950  PRINT  " - 

960  PRINT  "WAIT  FOR  THE  COUNT,  "sZ$8"," 

970  PRINT  TAB[B]8"THEN  HIT  ANY  KEY..." 

980  IF  INKEY$<>«"  THEN  980 

990  GOSUB  70 

1000  GOSUB  2200 

1010  IF  E  =  1 1  THEN  2340 

1020  PRINT  " - 


1030  ON  P  GOTO  1050,1310,1590 
1  040  REM  *****#******#****#'**>**** 

1050  PRINT  "YOU'VE  THROWN "  E  *  5  " YARDS" 

1  060  PRINT  TAB(4)  ;"AND  THE  PLAY  IS..." 

1  07  0  A  =  F  N  A ( B  ) 

1  080  IF  A  =  1  THEN  1520 
1  0  90  A  =  F  N A ( E  +  1  ) 

1100  IF  A  =  1  THEN  PRINT  TA  B  [  2  0  C  OM  P  L 

ETE" : GOTO  1220 

1110  PRINT  TAB ( 20 ] ; " . „ „ I NC OMP LETE" i D=D+1 
1120  GOSUB  170 

1130  PRINT  " - 


1140  IF  D  >3  THEN  1160 
1150  GOTO  610 

1160  PRINT  "THAT  WAS  YOUR  4TH  DOWN" 

1170  PRINT  "AND  YOU'VE  LOST  POSSESSION!! 

1180  D=0!TG=10:NU=ABS[100-NU) sSL=NU 

1190  GOSUB  70 

1200  GOSUB  1 40 

1210  GOTO  610 

1220  GOSUB  170 

1  23  0  NU  =  NU+ ( E*5 )  s TG  =  TG- [  E*5 ] 

1  240  IF  N  U  >1 0  0  THEN  1B00 
1  250  IF  T  G  < 1  THEN  12B0 
1  26  0  D  =  0  +  1  s I F  D  >3  THEN  1160 
1270  GOTO  610 
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12B0  D=0 :TG=1 0: SL=NU 
1290  GOTO  61 0 

1300  REM  ft*********************** 

1310  A  =  F  N  A [15] 

1 320  IF  A=1  THEN  1510 
1  33  0  E  =  A - 5 

1  340  IF  E  <  0  THEN  1440 

1350  IF  E=0  THEN  E=1sGOTO  1370 

1  360  PRINT  "GOOD  SNAP,,  PASS  AND  RUN" 

1370  PRINT  "YOU'VE  G A I N EO " E " Y AR 0 S " 

1 380  GOSUB  170 

1390  TG=TG-E:NU=ABS(NU+E]s D  =  D+1 
1  400  IF  N  U  > 1 0  0  THEN  1B00 
1410  IF  T  G  < 1  THEN  12B0 
1  420  IF  D  >  3  THEN  1160 
1 430  GOTO  61 0 

1440  PRINT  "GREAT  RUNNING  BY  THE  OPPOSIT 
ION  HAS" 

1450  PRINT  "CAUSED  YOU  TO  L 0 S E " A B S [ E ] " Y A 
RD  S" 

1460  TG=TG-E; NU=NU+E: 0=0+1 
1470  GOSUB  170 
1 4B0  IF  0  >3  THEN  1160 
1 490  GOTO  61 0 

1  500  REM  #****#$  *  **  s>  #*•**  $  **##•*  *  * 

1510  PRINT  "BAD  S N A P .  „  .  Y 0 U • V E  " 

1  5  20  PRINT  "FUMBLED  „  .  „ANO» 

1530  PRINT  "YOU'VE  LOST  POSSESSION..." 
1540  NU=1 OO-NU: 0=0 : TG=1 0 : SL=NU 
1  550  REM  ******'■'************’***** 

1560  GOSUB  170 
1570  GOTO  460 

1  580  REM  *=*  =»***  *  ***  *  ***$*,**,*,*#**  * 

1590  PRINT  "NICE  PUNT..." 

1  6  00  PRINT  "YOU'VE  K ICK  EO " E*4" YARDS" 

1610  NU=NU+E*4 
1  620  IF  N  U  >1  00  THEN  1  650 

1630  PRINT  " - 


1640  GOTO  460 
1  65  0  A  =  F  N  A ( 3] 

1  660  IF  A  >1  THEN  1740 

1670  PRINT  "BUT  YOU'VE  MISSED  THE  GOAL!! 
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1  680  IF  NU-E*4<80  THEN  N U  =  A B S [ 1 0 0 - [ N U - E * 
4])  .‘GOTO  1700 
1690  NU=ao 

1700  D=0 ! TG=1 0 ! SL=NU 
1710  GOSUB  140 
1 720  GOSUB  1 70 
1 730  GOTO  61 0 

1  740  PRINT  " . AND  SCORED!" 

1  7  50  IF  Z  $  =  B  $  THEN  SB=SB+3sG0T0  1770 

1  7  6  0  S  A  =  S  A  +  3 

1770  GOSUB  1 00 

1 780  GOSUB  1 70 

1790  N  U  =  3  5  !  G  OT  0  330 

1  BOO  CLS 

1810  FOR  X  =  1  TO  5 

1 B  2  0  PRINT  TAB(X*2) {"TOUCHDOWN!  II" 

1830  NEXT  X 

1  840  IF  Z  $  = A  $  THEN  SA  =  SA  +  6:GOTO  I860 
1  B  5  0  S  B  =  S  B  +  6 
I860  GOSUB  100 

1 B  7  0  PRINT  "TO  PLAY  FOR  EXTRA  POINT" 

1 B  B  0  GOSUB  170 

1 B  9  0  PRINT  " - 


1  9  00  PRINT  "THE  BALL  IS  S N A P P E D  .  .  .  P R E P A R 
E  TO  KICK!" 

1910  GOSUB  70 
1920  GOSUB  2200 

1930  IF  E  >  9  THEN  PRINT  "YOU  MISSED" :NU  =  2 
0 ; GOTO  1 970 

1  940  PRINT  "YOU  S C 0 R E D  .  ,  .  " : N U  =  3 5 

1950  IF  Z$=A$  THEN  SA=SA+1sG0T0  1980 

1  960  S  B  =  S  B  + 1  : GOTO  1  9B0 

1970  GOSUB  140 

1 9  B  0  GOSUB  100 

1990  GOSUB  1 70 

2000  GOTO  330 

2010  FOR  X  =  1  TO  10 

2020  PRINT  TAB[2*XJ ; "PERIOD  OVER" 

2030  NEXT  X 
2040  GOSUB  100 
2050  GOSUB  170 
2060  GOTO  660 
207  0  FOR  X  =  1  TO  10 
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200  0  PRINT  TAB [ 2*X]  ;  "HALF  TIME" 

2090  NEXT  X 
2100  GOSUB  100 
2110  Z  $  =  B  $ 

2120  GOSUB  170 

2130  NU=35 : W=W+2 : GOTO  330 

2140  FOR  X=1  TO  10 

2150  PRINT  TAB(8*X) [“GAME  OVER" 

2160  NEXT  X 
2170  GOSUB  1  00 
2100  ENO 

2190  REM  ************************ 

2200  E=0sX=10 

2210  IF  Z  $  = A  $  AND  VC  =  1  THEN  PRINT  "THIS 

ONE  FOR  " j  A  $ : G  0  T  0  2290 

2220  E=  E  +  1  : X  =X- 1 

2230  PRI NT  TAB!  E]  ;  E 

2240  FOR  Y  =  1  TO  X*1  .  5 

2250  IF  INKEY$<>" "  THEN  Y  =  X  *  1 .5+1 : RETURN 
2260  NEXT  Y 

2  2  7  D  IF  E  =  1 1  THEN  RETURN 

2200  GOTO  2220 

2290  FOR  E  =  1  TO  FNA(7)+2 

2300  FOR  J  =  1  TO  6  0 : N  EXT  J 

231 0  PRINT  T  A  B (  E)  ;  E 

2320  NEXT  E 

2330  RETURN 

2340  PRINT  "TOO  LATEI" 

2350  PRINT  "YOU'VE  BEEN  SACKED!" 

2360  E  =  F  N  A ( 4 ] 

2370  IF  E  =  3  THEN  2430 

2380  PRINT  "ANO  LOST  FIVE  YARDS!" 

2390  TG=TG+5 : D=0+1 : NU=NU-5 
2400  GOSUB  170 
2  410  IF  D  > 3  THEN  1160 
2420  GOTO  610 

2430  PRINT  "ANO  LOST  P 0 S S E S S  I  0 N  I  » 

2440  0=0: N  U  =  A  B  S  (  1 OO-NU+5) :SL=NU:TG=10 
2450  GOSUB  170 
2460  GOSUB  140 
2470  GOTO  610 
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The 

Grand  Slam 


In  this  sports  simulation,  you  have  a  chance  to  play  a  three-set  match 
of  tennis  against  your  computer.  If  you  prefer,  you  can  also  play 
against  another  human  being,  with  the  simulation  reporting  on,  and 
moderating,  the  action. 

Tennis  got  its  start  in  England  in  the  middle  of  the  last  century. 
By  1877  it  was  such  a  popular  game  that  a  national  championship 
was  staged  at  Wimbledon.  There  is  a  maximum  of  five  sets  in  a  match 
for  men,  and  three  for  women.  You  have  to  win  a  maximum  of  six 
games  to  win  a  set  You  need  to  lead  by  two  games  in  order  to  win  a 
set 

The  simulation  calls  on  your  decision-making  skill  and  tests 
your  reflexes.  Your  first  decision  concerns  the  speed  of  your  serve.  If 
you  elect  to  play  against  the  computer,  it  will  always  serve  first,  in 
order  to  allow  you  to  see  it  in  action.  You’ll  learn  a  lot  more  about  the 
simulation  from  watching  the  computer  serve  than  from  reading  this 
introduction. 

The  simulation  is  weighted  so  that  fast  serves  have  a  better 
chance  of  an  ace  than  do  slow  serves,  but  there  is  also  a  greater 
chance  of  a  fault  Slow  serves  will  rarely  result  in  an  ace,  but  are  also 
unlikely  to  be  faults. 

After  the  serve,  the  simulation  calls  on  your  reflexes.  The  screen 
clears  and  indicates  whose  court  the  ball  is  in.  After  a  brief  pause,  the 
computer  will  begin  a  countdown  to  - 1.  To  hit  the  ball,  you  need  to 
wait  until  the  count  reaches  zero,  and  then  press  any  key. 


128 


If  you  “swing”  too  soon  or  too  late,  you’ll  miss  the  ball,  and  the 
computer  will  tell  you  whether  the  ball  was  in  or  out  of  play.  Note  that 
you  can  choose  to  leave  a  ball,  if  you  think  it  is  going  to  go  out  If  you 
“hit”  the  ball  by  striking  a  key  just  as  the  count  reaches  zero,  the 
screen  will  clear  and  show  the  ball  in  the  other  player’s  court  This 
process  continues  until  one  player  or  the  other  misses  the  ball. 

The  program  begins  by  asking  you  whether  there  will  be  one  hu¬ 
man  player  or  two.  If  there  is  only  one,  it  will  ask  for  the  player’s  name 
with  the  prompt  NAME  OF  SECOND  PLAYER?: 

ONE  HUMAN  PLAYER  OR  TWO?  1 
NAME  OF  SECOND  PLAYER?  TIMOTY 


This  simulation  needs  names  that  are  six  letters  long.  If  you  enter  a 
longer  name,  the  computer  will  cut  it  down  to  size.  The  computer 
player’s  name,  as  you’ll  see  in  a  moment,  is  “Bjornx”.  The  match  be¬ 
gins  with  Bjornx  serving: 


BJORNX  SERVING 

00  YOU  WANT  TO  SERVE  1  -  FAST 

OR  S  -  SLOW 


1  >  IT'S  A  FAST  SERVE... 


Bjornx  elects  a  fast  serve,  and  the  mere  human  must  attempt  to 
return  it: 


TIMOTY,  THE  BALL  IS 
IN  YOUR  COURT 


HIT  ANY 
TO 


KEY,  WHEN  YOU  SEE  THE  ZERO, 
RETURN  THE  BALL  .  .  . 

5 


2 

1 

YOU  MISSED  THE  BALL,  AND... 
IT  WAS  IN...BA0  M I  STAR  E 
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Unfortunately,  Timoty  is  not  playing  with  his  usual  fine  form. 
The  score  is  shown  before  Bjornx  serves  again: 


SET  SET  SET 


12  3  GAME 

BJORNX  0  0  0  30 

TIMOTY  0000 


BJORNX  SERVING 

DO  YOU  WANT  TO  SERVE  1  -  FAST 

OR  2  -  SLOW 

1  >  IT ' S  A  FAST  SERVE  .  .  . 


The  scoring  system  in  our  simulation  follows  the  real  game, 
with  a  minimum  of  four  points  needed  to  win  a  game:  15,  30, 40,  and 
game.  If  both  sides  score  40,  “deuce”  is  declared,  and  the  first  player 
to  score  a  point  is  said  to  have  the  “advantage.”  A  further  point  is 
needed  to  win.  If  the  opponent  gets  a  point  instead  of  the  player  with 
the  “advantage,”  the  score  returns  to  “deuce.”  Of  course,  you  do  not 
have  to  worry  about  this  scoring  system,  as  the  computer  obligingly 
keeps  track  of  everything  for  you. 

Here  are  a  few  more  “snapshots”  of  the  game  in  progress: 

GAME  TO  BJORNX 


SET  SET  SET 


1  2  3  GAME 

BJORNX  1  0  0  0 

TIMOTY  0  0  00 


TIMOTY  SERVING 

DO  YOU  WANT  TO  SERVE  1  -  FAST 

OR  2  -  SLOW 


1  >  IT '  S  A  FAST  SERVE  ..  . 
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....  OUT  ...  . 

.  .  .SECOND  SERVE.  .  . 
TIMOTY  SERVING 

DO  YOU  WANT  TO  SERVE  1  -  FAST 

OR  2  -  SLOW 

2  >  .IT'S  A  SLOW  SERVE  . 


SET  SET  SET 


1  2  3  GAME 

BJORNX  6000 

TIMOTY  1  0  0  40 


TIMOTY  SERVING 

DO  YOU  WANT  TO  SERVE  1  -  FAST 

OR  2  -  SLOW 

2  >  IT'S  A  SLOW  SERVE. 


SET  SET  SET 


1  2  3  GAME 

BJORNX  6  0  0  15 

TIMOTY  1100 


BJORNX  SERVING 

DO  YOU  WANT  TO  SERVE  1  -  FAST 

OR  2  -  SLOW 


>  IT'S  A  FAST  SERVE 


It  appears  that  the  human  race  is  no  match  for  the  mighty  com¬ 
puter: 


SET  SET  SET 


1  2  3  GAME 

BJORNX  6  4  030 

TIMOTY  1  2  0  40 


TIMOTY  SERVING 

DO  YOU  WANT  TO  SERVE  1  -  FAST 

OR  2  -  SLOW 

2  >  IT'S  A  SLOW  SERVE... 


SET  SET  SET 


1  2  3  GAME 

BJORNX  6  ,4  0  {DEUCE 

TIMOTY  1  2  0  {DEUCE 


SET  SET  SET 


1  2  3  GAME 

BJORNX  6  6  6  0 

TIMOTY  1  4  4  0 
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The 

TENNIS 

Listing 


When  you’re  ready  to  take  on  Bjornx  for  a  set  or  two,  enter  and  run 
the  following  listing: 


10  REM  TENNIS 
20  C  LS 

30  RANDOMIZE  V A L [ R I G H T $ ( T I M E $ , 2 ) ) 

40  AA=0 : BB=0 : T=0 : KA=0 

50  XA=0 : YA=0 : ZA=0 

60  XB=Q : YB=0 : ZB=0 

70  DEF  FNA(XJ=INT(RND(1  ) *  X  J  + 1 

80  INPUT  "ONE  HUMAN  PLAYER  OR  TW0";A 

90  IF  A  < 1  OR  A  >  2  THEN  B0 

100  IF  A  =  1  THEN  A  $  =  " B J OR  NX " : VC =1 

110  IF  VC=1  THEN  160 

120  PRINT  "PLEASE  ENTER  A  SIX-LETTER  NAM 
E  " 

130  INPUT  "NAME  OF  FIRST  PLAYER"  ; A  $ 

140  IF  LEN(A$, }  <6  THEN  A$  =  A$  +  "  "jGOTO  140 

150  A$=LEFT$(A$ , 6 ] 

160  INPUT  "NAME  OF  SECOND  PLAYER" }B$ 
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17  0  IF  L  E  N  (  B  $  J  <6  THEN  B$=B$+"  "sGOTO  170 

1  BO  B$=LEFT$  [  B$  f  6  ) 

190  S  =  1  s A  A  =  1  s  BB  =  1 
200  CLS 

210  P$=A$sR$=B$ 

220  REM  ****************************** 
230  IF  P  $  = A  $  THEN  R$  =  B$ 

240  IF  P  $  =  B  $  THEN  R$  =  A$ 

250  PRINT  P  $ ; "  SERVING" 

260  PRINT  "DO  YOU  WANT  TO  SERVE  1  -  FAST 
270  PRINT  "  OR  2  -  SLOW 

2  B  0  IF  P$  =  A$  AND  VC  =  1  AND  SC  =  0  THEN  KB  =  1 
S  GOSUB  1 72D  s  GOTO  330 

290  IF  P  $  = A  $  AND  VC  =  1  AND  SC  =  1  THEN  K  B  =2 
s  GOSUB  1  720  : GOTO  33D 
300  K  $  =  I  NK  E  Y  $ 

310  IF  K  $  <  "  1  "  OR  K  $  > " 2 "  THEN  300 
320  KB=VAL(K$) 

330  PRINTsPRINT  TAB(6);KB;TAB[10);»>  IT' 
S  A 

340  IF  K  B  =  1  THEN  PRINT  " FAST "5 

3  50  IF  K  B  =  2  THEN  PRINT  "SLOW"; 

360  PRINT  "  SERVE _ " 

370  GOSUB  1720 

3  B  0  IF  K  B  =  1  THEN  EB  =  F NA ( 3 ]  s G OT 0  400 
3  90  E  B  =  F  N  A  (  8  ) 

400  IF  E  B  =  1  THEN  450 
410  IF  E  B  =  3  AND  SC  =  0  THEN  520 
420  IF  E  B  =  3  ANO  SC  =  1  THEN  590 
430  GOTO  670 

440  REM  ****************************** 
450  CLS : PRI NT 

460  PRINT  TAB [ B .ACE  ....  " 

470  GOSUB  1720 
480  SC=0 

490  IF  P  $  = A  $  THEN  1140 
5  D  0  GOTO  1150 

510  REM  * . ********* . 

520  CLS SPRINT 

5  30  PRINT  TAB ( 1 2 OUT  ....  " 

540  PRINT  TAB ( B )  5  "...  SECOND  SERVE..." 
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550  GOSUB  1  7  SO 

560  SC=1 

570  GOTO  S  3  0 

5  8  0  REM  #*#*#■*  **  ®  **  $  *  $*$$$  ***********  * 
590  CLSsPRINT 

6  0  0  PRINT  T  AB  ( 1  S  };"...  .  OUT  ...  .  11 

610  PRINT  TAB ( 9  ]  j  "  .  .  .  .0 OUBLE  FAULT..." 

6  S  0  GOSUB  1  7S0 
630  SC  =  0 

640  IF  P  $  =  A  $  THEN  1150 
650  GOTO  1140 

670  SC=0 

6  B  0  CLS:PRINT 

690  IF  INKEY$<>""  THEN  690 

700  PRINT  R  $ | ,  THE  BALL  IS" sPRINT  "IN  Y 
OUR  COURT" 

710  PRINT  " - - - " 

7  S  0  IF  R  $  =  A  $  AND  VC=1  THEN  750 

730  PRINT  "HIT  ANY  KEY,  WHEN  YOU  SEE  THE 
ZERO,  TO  RETURN  THE  BALL..." 

740  IF  INKEY$<>""  THEN  740 
750  X=4*FNA(3) sY=X 
760  GOSUB  1720 
7  70  E  =  5 

780  PRINT  TAB ( 2* (  1  1  -E]  J  |  E 

7  90  Y  =  Y - 1 

800  S$=INKEY$ 

810  IF  S$<>""  AND  E  =  0  THEN  890 

8  S  0  IF  S$<>""  THEN  990 
830  IF  Y  >  0  THEN  790 
840  E  =  E - 1  .  Y  —  X 

B  5  0  IF  E  < - 1  THEN  990 

8  60  IF  E  =  - 1  AND  R$  =  A$  AND  VC  =  1  THEN  890 
870  GOTO  780 

B  8  0  IF  K  B  =  1  THEN  EA  =  FNA(2]sG0T0  1000 
890  EA  =  F  NA ( 4  ) 

9  0  0  IF  E  =  0  AND  R$=A$  AND  VC  =  1  THEN  EA  =  F  N 
A  [  8  ) 

910  IF  EA=1  THEN  940 
9  2  0  IF  R  $  = A  $  THEN  R$  =  B$:G0T0  67  0 
930  R  $  = A  $ s  GOTO  670 

940  PRINT  R  $  ;  "  ,  YOU'VE  HIT  THE  BALL" 

950  PRINT  TAB ( B ) % " OUT  OF  PLAY..." 
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960  GOSUB  1720 

970  IF  R$  =  A$  THEN  R$=B$!GOTO  1150 
9  B  0  GOTO  1140 
990  EA=FNA[4) 

1000  IF  E A  =  1  THEN  1070 

1010  PRINT  "YOU  MISSED  THE  BALL,  AND... 
1020  GOSUB  1720 

1030  PRINT  "  IT  WAS  IN. ..BAD  MISTAKE" 
1 040  GOSUB  1720 

I  050  IF  R  $  =A  $  THEN  R$  =  B$:GOTO  1150 
1060  GOTO  1140 

1070  PRINT  "YOU  MISSEO  THE  BALL  AND..." 
1 OBO  GOSUB  1720 

1090  PRINT  "  IT  WAS  OUT.. WELL  LEFT" 
1100  GOSUB  1720 

1110  IF  R  $  = A  $  THEN  R$  =  B$:G0T0  1140 
1120  GOTO  1150 

1130  REM  ****************************** 
1 1 40  AA  =  AA  +  1  s  GOTO  1160 
1150  B  B  =  B  B  +  1 

1160  IF  A  A  <  5  AND  BB<5  THEN  1230 

1170  IF  (  B  B  >  4  ANO  AA<4)  OR  (BB>4  ANO  BB 

A  A  > 1  J  THEN  AA  =  1  :  BB  =  1  s GOTO  1500 

I I  B  0  IF  ( AA  >4  ANO  BB<4)  OR  (AA>4  AND  AA 
B  B  > 1  )  THEN  AA  =  1  s BB  =  1  ! GOTO  1440 

1190  IF  A  A  >  4  ANO  A  A  >  B  B  THEN  C$  =  "ADV":D$ 
" - "  :G0T0  1320 

1  200  IF  B  B  >  4  ANO  B  B  >A A  THEN  D $  =  " A 0 V "  s C $ 
" - " : G  0 T  0  13  20 

1210  C$  =  " CO EUCE" s D $=" {DEUCE" s GOTO  1320 

1220  REM  ****************************** 

1230  RESTORE 

1240  FOR  0=1  TO  AA 

1250  READ  C$ 

1260  NEXT  D 
1270  RESTORE 
1  2  B  0  FOR  D  =1  TO  BB 
1  2  90  READ  D  $ 

1300  NEXT  D 

1310  REM  ****************************** 
1 320  CLS 

1330  PRINT  " - » 

1340  PRINT  "  SET  SET  SET" 
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1  3  50  PRINT  " - - » 

1360  PRINT  "  1  2  3  GAME" 

1370  PRINT  A  $  ;  "  "  jXA  ;  "  "  ;  YA  j  "  "  ;  ZA  ;  » 

"  ;  C  $ 

1  3  8  0  PRINT  B  $ ; "  "  ;  X  B  5 "  "  ;  Y  B  ;  "  "  ;  Z  B  ;  " 

"  ;  0  $ 

1  3  90  PRINT  " - " 

1 400  GOSUB  1720 
1410  IF  T<  >1  THEN  230 
1420  ENO 

1430  REM  ****************************** 
1440  CLS 

1450  PRINT  "GAME  TO  ";A$ 

1 460  GOSUB  1720 

1470  IF  S=1  THEN  XA=XA+1 |C$="0" sD$=" 0" : G 
OTO  1560 

1480  IF  S  =  2  THEN  YA  =  YA  +  1  s C $  =  " 0 " : 0 $= " 0 " s G 
OTO  1580 

1  490  IF  S  =  3  THEN  Z A  =  Z A  + 1  s C $  =  " 0 " S 0  $  =  » 0 "  ! G 
OTO  1600 
1500  CLS 

1510  PRINT  "GAME  TO  " ; B  $ 

1 520  GOSUB  1 720 

1530  IF  S  =  1  THEN  X B =X B  +  1  ! C $  =  " 0  "  !  0  $  =  " 0  "  ;G 
OTO  1560 

1  5  40  IF  S,=  2  THEN  YB=YB  +  1  :C$  =  "  0":0$  =  "  0"  sG 
OTO  1 5B0 

1550  IF  S  =  3  THEN  ZB=ZB+1»C$="0":0$="0" :G 
OTO  1600 

1  560  IF  ( X  A  >  5  ANO  XB<5)  OR  [XA<5  ANO  XB> 
5  ]  THEN  1630 

1  570  IF  ( X  A  >  5  ANO  XA-XB>1)  OR  [XB>5  ANO 
XB-XA  >1  )  THEN  1630 

1  580  IF  [YA>5  ANO  YB<5)  OR  (YA<5  AND  Y  B  > 
5)  THEN  1 630 

1  5  90  IF  [ Y  A  >  5  ANO  YA-YB<1  J  OR  (YB>5  ANO 
YB-YA  >1  ]  THEN  1630 

1  600  IF  ( Z  A  >  5  ANO  ZB<5]  OR  (ZA<5  AND  ZB> 
5]  THEN  1 6B0 

1610  IF  ( Z  A  >  5  AND  ZA-ZB>1)  OR  [ZB>5  ANO 
Z  B - Z  A  > 1  )  THEN  1 680 
1620  GOTO  1640 
1630  S=S+1 
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1540  A  A  =  1  : B  B  =  1 

1  6  50  IF  P$=A*.THEN  R $  =  A  $ ! P $  =  B $ ! G 0 T 0  13S0 


1  660  P $  =  A $ s R $  =  B $ i G OTO  .  1 3 20 
1670  REM  ****************** 
1  6  B  0  T  =  1 
1690  GOTO  1320 

1710  REM  DELAY 
1  7  20  FOR  M  =1  TO  1  000  :NEXT  M 
1730  RETURN 

1  7  40  DATA  "0 "  ,  "1  5 "  ,  " 3  0 " , " 4D 


138 


21 


Driving  a 
Racing  Car 


Now  you  have  the  chance  to  drive  a  simulated  racing  car  around  your 
choice  of  four  of  the  world’s  greatest  Grand  Prix  circuits.  You,  too, 
can  be  a  hero  on  the  British  course  known  as  “The  Whale,”  at  Ger¬ 
many’s  “The  Key,”  on  the  Italian  track  called  “The  Shoe,”  or  on  the 
3100-meter  track  at  Monaco. 

The  program  begins  by  asking  your  name,  wishing  you  luck,  and 
asking  you  which  track  you  wish  to  try  and  how  many  laps  the  race 
will  be  over: 


HAT  IS  YOUR 


AME,  DRIVER?  HARTNELL 


,  GOOD  LUCK ,  HARTNELL 

OK,  GOOD  LUCK,  HARTNELL 

OK,  GOOD  LUCK,  HARTNELL 

RACE  DD  YOU  WANT  TO  TAKE  PART  IN 


BRITISH  GRAND  PRIX  2650MT 
GERMAN  GRAND  PRIX  1700MT 
ITALIAN  GRAND  PRIX  2200MT 
MONACO  GRANO  PRIX  3100MT 


NUMBER  [1  TO  4] 
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OK  f  THE  BRITISH  RACE 

OVER  HOW  MANY  LAPS? 


The  aim  of  the  simulation,  naturally  enough,  is  to  complete  the 
race  as  quickly  as  possible,  without  crashing  and  without  overheat¬ 
ing  either  your  engine  or  your  brakes.  The  race  begins  as  follows: 

You  start  the  race,  as  the  fifth  line  down  indicates,  in  the  sixth 
position.  On  the  British  circuit,  you  start  the  simulation  at  140  ki¬ 
lometers  an  hour,  just  under  the  speed  recommended  for  the  ap¬ 
proaching  corner.  To  increase  your  speed,  you  hit  the  “M”  key.  The 
“Z”  key  will  slow  you  down,  and  the  space  bar  allows  you  to  maintain 
the  same  speed. 

A  few  seconds  after  the  above  “snapshot”  of  the  simulation,  the 
screen  looked  like  this: 


ENGINE  TEMPERATURE 
BRAKE  TEMPERATURE: 
OISTANCE  COVEREO: 

YOU'RE  IN  POSITION 


100  C.  [MAX.  200] 
10  C.  [MAX.  500] 

0  METERS 
0  LAPS 
6 


CURRENT  SPEE0:  140  KPH 

:  77.7  METERS  PER  MOVE 


CORNER  APPROACHING  800  METERS 
REC0MMEN0E0  SPEE0:  150  KPH 


The  simulation  run  began  with  the  first  comer  800  meters  away. 
This  has  now  shmnk  to  just  57  meters,  and  I’ve  increased  my  speed 
to  148  kph,  just  below  the  recommended  speed  for  taking  that  comer 
of  150  kph.  The  engine  has  warmed  up  slightly,  but  still  a  long,  long 
way  away  from  the  maximum  of  200  C.,  and  the  temperature  of  the 
brakes  has  gone  up  from  10  degrees  to  nearly  55. 
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ENGINE  TEMPERATURE  104.6  C. 
BRAKE  TEMPERATURE:  54.7  C. 


[MAX.  200] 
[ MAX .  500 ] 


DISTANCE  COVERED:  742.2  METERS 
:  .28  LAPS 

YOU'RE  IN  POSITION  6 


CURRENT  SPEEO  :  148  KPH 

:  82.2  METERS  PER  MOVE 


CORNER  APPROACHING  57  METERS 
RECOMMENOEO  SPEEO:  150  KPH 


I  safely  negotiate  that  comer,  but  find  that  I  have  perhaps  been 
a  bit  too  cautious:  with  just  under  half  of  the  one-lap  race  completed 
I  have  fallen  back  to  the  seventh  position  after  starting  in  position  six: 

ENGINE  TEMPERATURE  87.1  C.  (MAX.  200] 

BRAKE  TEMPERATURE:  157.3  C.  (MAX.  500] 

DISTANCE  COVEREO:  1102  METERS 

:  .41  LAPS 

YOU 'RE  IN  POSITION  7 


CURRENT  SPEEO:  112.3  KPH 

:  62.3  METERS  PER  MOVE 


CORNER  APPROACHING  97  METERS 
RECOMMENOEO  SPEEO:  90  KPH 


I  am  just  97  meters  from  the  next  corner,  where  the  recom¬ 
mended  cornering  speed  is  90  kph.  I’m  doing  just  over  112  kph.  Fran¬ 
tically,  I  slam  on  the  brakes,  punching  at  the  “Z"  key.  But  it  is  too  late: 


YOU  C0RNERE0  AT  104.8  KPH 
AN0  THE  MAXIMUM  SPEEO  WAS  JUST  90 
YOU  SPIN  OFF  THE  TRACK  .  .  . 
. . A  N  0  CRASH  IMII 


YOU  ONLY  COMPLETEO  121B.4  METERS, 
OR  .45  LAPS  AN0  AT  THAT 
STAGE  WERE  IN  POSITION  7 
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YOUR  AVERAGE  SPEED  WAS  137.07  KPH 
YOU  WERE  2  TH  FASTEST  ON  STRAIGHTS, 
ANO  13  TH  FASTEST  ON  CORNERS. 

PRESS  'S'  FOR  SAME  RACE,  'N'  FOR  NEW 
RACE,  ' E '  TO  END 


I  was  in  seventh  place  when  my  race  ended.  The  final  screen  tells 
me  my  average  speed  was  a  shade  over  137  kph,  I  was  second  fastest 
on  the  straights,  and  only  twelfth  fastest  on  the  corners. 

As  you  can  see,  you  are  given  the  choice  of  running  the  same 
race  again  (by  pressing  “S”),  choosing  a  new  race  (“N”),  or  ending  the 
simulation  (“E”). 

I  press  “N”  and  decide  on  the  German  circuit: 


WHICH  RACE  DO  YOU  WANT  TO  TAKE  PART  IN; 

BRITISH  GRAND  PRIX  2650MT  ;1 
GERMAN  GRAND  PRIX  1700MT  :  2 
ITALIAN  GRAND  PRIX  2200MT  :3 
MONACO  GRAND  PRIX  3100MT  j4 


ENTER  A  NUMBER  (1  TO  4] 
OK  ,  THE  GERMAN  RACE 


OVER  HOW  MANY  LAPS? 
?  1 


This  time,  I  take  fewer  risks,  and  am  soon  on  my  way  to  com¬ 
pleting  the  circuit  without  mishap: 


ENGINE  TEMPERATURE  117.5  C.  (MAX.  200) 
BRAKE  TEMPERATURE:  34.5  C.  (MAX.  500) 
DISTANCE  C0VERE0:  1424.3  METERS 
:  .83  LAPS 

YOU'RE  IN  POSITION  27 
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CURRENT  SPEED:  116.3  KPH 

:  64.6  METERS  PER  MOVE 


CORNER  APPROACHING  75  METERS 
RECOMMENDED  SPEED:  2D0  KPH 


A  few  careful  moments  later,  and  I’ve  done  it: 


WELL  DONE,  HARTNELL  I  I 


YOU  MANAGED  TO  LAST  DUT  THE  FULL 
1  LAP  RACE.  .  . 


The  main  value  of  this  simulation,  apart  from  that  of  its  high  en¬ 
tertainment  potential,  is  showing  how  the  facts  of  “real  life”  (such  as 
the  engine  speed  maximum,  and  the  data  on  each  track)  can  be  en¬ 
coded  into  a  program.  You  can  also  see  how  the  formulas  link  the  var¬ 
ious  outputs  together  in  a  realistic  way — for  example,  how  lines  370 
and  380  work  out  how  far  you  have  traveled,  by  converting  your  speed 
in  kilometers  per  hour  into  meters. 

Note  also  that  lines  320  and  330,  which  act  on  your  attempts  to 
speed  up  or  slow  down,  add  or  subtract  a  value  that  is  related  to  the 
actual  speed  you  are  traveling.  This  means  you  can  brake  more  dra¬ 
matically  when  you  are  moving  quickly  than  you  can  while  moving 
slowly.  Using  a  value  that  is  related  to  current  speed  also  overcomes 
the  realism-destroying  practice  of  just  changing  the  current  speed  by 
a  fixed  value  each  time  a  key  is  pressed. 

YOU  FINISHED  IN  30  POSITION, 

AFTER  STARTING  IN  6  T  H  PDSITIDN... 

YOUR  AVERAGE  SPEED  WAS  100.38  KPH 
YOU  WERE  14  TH  FASTEST  ON  STRAIGHTS, 

AND  47  TH  FASTEST  ON  CORNERS. 

PRESS  'S'  FOR  SAME  RACE,  'N'  FOR  NEW 
RACE,  '  E  *  TO  END 
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The  Tracks 


Here  are  the  four  Grand  Prix  circuits  that  are  encoded  within  the 
program. 

British  Grand  Prix 

“The  Whale,”  2650  meters: 


German  Grand  Prix 

“The  Key,”  1700  meters: 


"Death  Elbow”  200 


600m  Finish 
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Italian  Grand  Prix 


“The  Shoe,”  2200  meters: 


Start  800m 


Monaco  Grand  Prix 

3100  meters: 


Numbers  not  followed  by  “m”  indicate  maximum  cornering  speeds. 

Numbers  followed  by  “m”  (for  meters)  indicate  distances  between  corners. 
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GRAND  PRIM 
Listing 


Take  a  firm  grip  on  the  wheel,  and  tackle  the  GRAND  PRIX  circuits 
with  this  listing: 

10  REM  GRAND  PRIX 
20  GOSUB  22QQ:REM  INITIALIZE 
30  GOSUB  1 1 90 s R EM  CHOOSE  TRACK 
40  REM  ************************* 

50  REM  MAJOR  LOOP 

60  GOSUB  1  2  0  :  R  E  M  PRINTOUT 

70  GOSUB  2  8  0  : R  E  M  A C C E L F R A T I  0 N/ C H E C K 

BO  GOSUB  4  5  0  : R  E  M  E N G I N E/ B R A K E S 

90  GOSUB  5  0  0: REM  C 0 R N E R / P 0 S I T I  0 N 

100  GOTO  60 

110  REM  ************************* 

120  REM  PRINTOUT 
13  0  C  L  S 

140  PRINT  "ENGINE  T EM P E R A T U R E " I N T ( E N G *  1  0 
1/1 0"C.  [MAX.  200]" 

150  PRINT  "BRAKE  TEMPERATURE: "INT(BRAK*1 
0  J/1 0  "C  .  [ MAX  .  5  00  )  " 

160  PRINT  »  DISTANCE  COVERED: " INT[0IST*1 
0)/10 "METERS" 


170  PRINT  "  s"INT(DIST*1 

00/RR ] /I  00“ LAPS " 

1  BO  PRINT  "YOU'RE  IN  POSITION" INT(FP) 

190  PRINT  " - 


200  PRINT  "  CURRENT  SPEEO:"INT[SPEED* 

1  0  J  / 1  0  "  K  P  H  " 

210  PRINT  "  s" INTlSPEED* 

5. 5551/10 "METERS  PER  MOVE" 

220  PRINT  " - 


230  PRINT 
ETERS" 

240  PRINT 
250  PRI NT 


CORNER  APPROACHING "INT(APP) " M 
RECOMMENDED  S P E E D : " C ( C ) » K P H » 


260  RETURN 

270  REM  ************************* 

2  B  0  REM  CHECK  ACCELERATION  AND  FACTORS 
290  X  $  =  I  N  K  E  Y  $  s  I  F  X$<>"Z"  AND  X$<>"M"  AND 

X  $  <  >  "  "  THEN  290 

300  PRINT  TAB(12J|"0K" 

310  X  =  0 

3  20  IF  X  $  =  " M "  THEN  X  =  SPEED/15 
330  IF  X$="Z"  THEN  X=-SPEED/15 
340  NUM=NUM+1 s R EM  NUMBER  OF  MOVES 
350  SPEED=SPEED+X 

360  IF  S  P  E  E  D  <  0  THEN  SPEE0=0 
370  T RAV=SP EEO * . 5555 ! R EM  DISTANCE 
TRAVELLED 

3  B  0  D I ST=D I ST  +  TRAV : R EM  TOTAL  DISTANCE 
travelled 

3  90  ENG  =  ENG+ [ X/2 )  +  .  07 s I F  ENG<70  THEN  ENG 
=7 0+R ND ( 1 ) * B s R EM  ENGINE  TEMP 
400  IF  X>0  THEN  B R A K  =  B R A K *  .  9 : R E M  BRAKE 
TEMP  FALLING;  ACCELERATING 
410  IF  X<1  THEN  B  R  A  K  =  B  R  A  K  -  [  3  *  X  ]  -  R  N  D  [  1  )  *  3 
sREM  BRAKE  TEMP  INCREASING;  BRAKING 
420  IF  B  R  A  K  <  B  THEN  B R AK = B + R N D [ 1 ) * B 
430  RETURN 

440  REM  **************#***-#**#*** 

450  REM  CHECK  ENGINE/BRAKE  TEMP 

460  IF  E  N  G  >  2  0  0  THEN  PRINT  "YOUR  ENGINE  H 

AS  OVER  HEAT  ED "; G OTO  B30 


470  IF  BRAK  >500  THEN  PRINT  "YOUR  BRAKES 
HAVE  OVERHEATED" : GOTO  B30 
480  RETURN 

490  REM  ************************* 

500  REM  CHECK  CORNERING  SPEED 
ANO  FIELD  POSITION 
510  APP=APP-TRAV 
520  IF  A  P  P  >  0  THEN  RETURN 
530  C  R  A  S  H  =  0 

540  IF  SPEED >(C[C) *1 .1 25)  THEN  CRASH=1;G 
OTO  690 

550  IF  SPEEO > l C l C ) *1 . 1 ]  THEN  GOTO  690 

56  0  PNT  =  PNT  +  1  00-1  (C(C) *1  .1  )  -  S  P  E  ED  )  sREM  C 
ORNERING  POINTS 

57  0  NC=NC+1  :R  EM  NUMBER  OF  CORNERS 
580  CP=96-(PNT/NC) sREM  CORNERING 

POSITION 

590  AM=AM+A[C) sREM  AVERAGE  NUMBER 
OF  .MOVES  ALLOWED 

600  RP=NUM-AM : REM  RACING  POSITION;  YOUR 
MOVES  MINUS  AVERAGE  MOVES 
610  FP= ( CP+RPJ/2S REM  FIELD  POSITION  IS 
AVERAGE  OF  CORNER  &  RACE  POSITIONS 
620  IF  F  P  < 1  THEN  FP  =  1 
630  C=C+1 

640  IF  C=WW  THEN  C=1;REM  LAP  OVER 
650  APP=APP+D(C) 

6  60  IF  LAP*  Q  Q  =  A  M  THEN  910sREM  RACE  OVER 
670  RETURN 

6  B  0  REM  ************************* 

690  REM  CRASHEO 

700  CLS 

710  PRINT  "YOU  CORNERED  AT " I  NT (  1  0* SPEED  ) 
/  1  0  "  K  P  H  " 

720  PRINT  "ANO  THE  MAXIMUM  SPEED  WAS  JUS 
T  "  C  (  C  ) 

730  GOSUB  2330 

740  PRINT  "YOU  SPIN  OFF  THE  TRACK... 

750  GOSUB  2330 

7  6  0  IF  C  R  A  S  H  =  1  THEN  830 

770  PRINT  "YOU’VE  LOST  20  SECONDS,  BUT  Y 
OU'RE  ABLE  TO  REJOIN  THE  RACE" 

780  NUM=NUM+10sSPEE0=INT[2*C[C)/3) 

790  PNT=PNT+50 
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SOD  GOSUB  2330 
BID  GDTD  5  7  D 

82D  REM  a#***#***********#*###### 

830  PRINT  "...........AND  CRASH!  I  1  I  I  H 

8  4  D  PRINT  " - 


850  PRINT  "YOU  ONLY  COMPLETED "INT(10*DIS 
TJ/10" METERS," 

8  6  D  PRINT  " OR " I  NT ( D I ST*1 OD/R R J /I  00" LAPS 
AND  AT  THAT" 

870  PRINT  "STAGE  WERE  IN  POSITION " I N  T { F  P  ] 
880  PRINT  " - 


890  GDTO  1050 

900  REM  ************************* 

910  REM  RACE  OVER 
920  C  L  S 
9  3  D  E  F  L  A  G  =  1 
940  FOR  X=1  TO  20 

950  PRINT  TAB(X)  ;"WELL  DONE,  »  S  A  $  S  »  !  !  " 
960  PRINT  TAB(21-X)S"WELL  DONE,  "?A$5"H 

9  7  D  NEXT  X 

980  PRINT  " - 


990  PRINT  "YOU  MANAGED  TO  LAST  OUT  THE  F 
U  LL  " LAP" LAP  RACE  ...  " 

1  0  0  0  PRINT  " - 


1010  GOSUB  2  3  3  D 

1 D  2  0  PRINT  "YOU  FINISHED  IN  POSITION"INT 
[FP  ] 

1  0  3  D  PRINT  "AFTER  STARTING  IN  6  T  H  POSITI 
ON..." 

1 0  4  D  GOSUB  23  30 

1050  PRINT  "YOUR  AVERAGE  SPEED  WAS»INT(D 
IST*180/NUM)/100"KPH" 

1 D  6  0  GOSUB  2330 
1  0  7  D  IF  R  P  < 1  THEN  RP  =  1 
1080  IF  CP<1  THEN  CP=1 

1  090  PRINT  "YOU  W E R E " I  NT [ A B S [ R P )  ]  " T H  FAS 
TEST  ON  STRAIGHTS," 

1100  PRINT  "AND"INT[ABS[CP] ] "TH  FASTEST 
DN  CORNERS." 
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1110  PRINT:PRINT  "PRESS  *S'  FOR  SAME  RAC 

E ,  •  N  *  FOR  NEW  RACE,  <  E  *  TO  END" 

1120I$=INKEY$:IF  I$<>"S"  AND  I$<>"N"  AN 

D  I  $  <  > " E "  THEN  1120 

1130  IF  I  $  =  "  E "  THEN  END 

1140  GOSUB  2240 

1150  RESTORE 

1160  IF  I $=" S"  THEN  GDSUB  1490:LAP=L2APs 
GOTO  60 

1170  IF  I  $  = " N "  THEN  CLSsGOSUB  1250:G0T0 
6  0 

1 1  BO  REM  **#«*#$#«$*####*#**#**4*# 

1190  REM  NAME  AND  TRACK  DATA 

1200  INPUT  "WHAT  IS  YOUR  NAME,  DRIVER"  ;A 

$ 

1210  PRINT 

1220  FOR  X=1  TO  3 

1  230  PRINT  TAB ( 4^X J  5 " OK  ,  GOOD  LUCK,  ";A$ 
1240  GOSUB  2330: N EXT  X 

1250  PRINT  n  **************************** 
*********** 

1260  PRINT  "WHICH  RACE  DO  YOU  WANT  TO  TA 
KE  PART  IN:" 

1270  PRINT 

1 2  B  0  PRINT  T  A  B  (  7  )  ;  " BRITISH  GRAND  PRIX  2 

6  5  0  M  T  8  1  " 

1290  PRINT  TAB(7); "GERMAN  GRAND  PRIX  1 

7  0  0  M  T  :  2  " 

1300  PRINT  TAB [7} {"ITALIAN  GRAND  PRIX  2 

2  0  0  M  T  s  3  " 

1310  PRINT  TAB(7); "MONACO  GRAND  PRIX  3 
1  0  0  M  T  :  4  " 

1320  PRINT 

1330  PRINT  TAB[7);" ENTER  A  NUMBER  [1  TO 

4}  .. 

1340  K$=INKEY$ 

1350  IF  K  $  < " 1 "  OR  K  $  > " 4 "  THEN  1340 
1  36  0  G P  =  V A  L [ K  $ ) 

1370  PRINT  ***************************** 

***#«**$$ n 

1  3  B  0  PRINT  T  A  B  (  8  )  ;  " OK,  THE  "5 
1390  IF  G  P  =  1  THEN  PRINT  "BRITISH"; 

1400  IF  G  P  =  2  THEN  PRINT  "GERMAN"; 
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1410  IF  G  P  =  3  THEN  PRINT  "ITALIAN"; 

1420  IF  G  P  =  4  THEN  PRINT  "MONACO"; 

1430  PRINT  "  RACE" 

1  440  PRINT  h  « i*************************** 

*********  it' 

1450  PRINTsPRINT  "OVER  HOW  MANY  LAPS?" 
1460  INPUT  LAPsIF  LAP<1  THEN  1460 
1  470  LAP=I NT ( LAP+ .  5 ]  :  L2AP  =  LAP 
1480  REM  ************************ 

1490  REM  BRITISH  DATA 
1  500  S  P  E  ED  =  1 40 
1510  FOR  X  =  1  TO  9 

1  5  20  R  E A  0  0[X]:REM  OISTANCE  BETWEEN 
COR  NERS 

1530  NEXT  X 

1540  OATA  800,400,250,200,250,300,100,10 
0,250 

1550  FOR  X  =  1  TO  9 

1  56  0  READ  C ( X  3  : R  EM  RECOMMENDED 

MAXIMUM  CORNERING  SPEED 

1570  NEXT  X 

1580  DATA  150,90,175,200,200,90,90,150,1 
5  0 

1  5  90  FOR  X  =  1  TO  9 

1600  READ  A(X):REM  AVERAGE  NUMBER  OF 
MOVES  ALLOWED  BETWEEN  CORNERS 
1610  NEXT  X 

1  6  20  DATA  8 , 4 , 2 , 2 , 2 , 2 , 1  , 1  ,  2 

1630  APP=8 00 : WW=1 0 : QQ=24 : RR=265 0 

1  6  40  IF  G  P  =  1  THEN  RETURN 

1650  REM  ************************ 

1660  REM  GERMAN  OATA 
1670  SPEED=85 
1680  FOR  X=1  TO  7 
1690  R  E A  0  0[X] 

1700  NEXT  X 

1710  OATA  600,200,100,150,250,200,200 
1  720  FOR  X  =  1  T  0  7 
1  730  READ  C [ X  3 
1 740  NEXT  X 

1750  OATA  90,175,120,90,200,200,175 
1  7  60  FOR  X  =  1  TO  7 
1  770  READ  A ( X  J 
1780  NEXT  X 
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1790  DATA  6, 2,1, 2, 2,2, 2 
1 B  0  0  APP=600 s WW=8 s 00=1 7 : RR=1 700 
1  B1  0  IF  G  P  =  2  THEN  RETURN 
1  B  2  0  REM  ************************ 

1 B  3  0  REM  ITALIAN  DATA 
1  B  4  0  SPEED  =1 0  B 
1  85  0  FOR  X  =  1  TO  7 
1 860  READ  D [X] 

1  B  7  0  NEXT  X 

1  B  B  0  OATA  8  0  0,300,1  0  0,1  50,3  00,350  ,  2  00 
1  B90  FOR  X  =  1  TO  7 
1  90  0  R  EAD  C [ X ) 

1910  NEXT  X 

1920  OATA  120,90,90,150,200,120,150 
1  930  FOR  X  =  1  TO  7 
1  940  R  E  A  0  A [ X ) 

1 950  NEXT  X 

1  96  0  OATA  B,  3, 2, 1,3, 3,  2 

1970  APP=800 ! WW=B s QQ=22 8 RR=2200 

1  9  8  0  IF  G  P  =  3  THEN  RETURN 

1990  REM  ************************* 

2000  REM  MONACO  OATA 
201  0  S  P  E  E  D  =  1 62 .5 
2020  FOR  X  =  1  TO  14 
2030  READ  D [X] 

2040  NEXT  X 

2050  OATA  400,100,100,300,400,300,150,20 

0,200,200 

2060  OATA  150,150,200,250 
2070  FOR  X=1  TO  1 4 

2  0  B  0  R  E  A  0  C(X) 

2090  NEXT  X 

2100  OATA  175,150,175,200,120,200,175,90 
,1  75 ,1  5D 

2110  DATA  150,175,120,150 
2120  FOR  X=1  TD  14 
21 30  READ  A (XJ 
2140  NEXT  X 

2150  OATA  4 , 1  , 1  , 3 , 4 , 3 , 1  ,  2  ,  2  ,  2 
2160  DATA  1,2, 2, 2 

2170  APP=400:WW=1 5: 00=30: RR=31 00 
2180  RETURN 

2200  REM  INITIALIZATION 


152 


2210  CLS 

22  20  RANDOMIZE  V A L ( R I G HT $ [ T  I  M E $ , 2 ]  ] 
2230  DIM  A[14),C[14},D[14) 

2240  C  =  1  s F P  =  6 : PNT  =  0 s NC  =  0  :  CP  =  0 

2250  AM=0 : RP=0 : APP=0 

2260  NUM=0:REM  NUMBER  OF  MOVES 

2270  ENG  =  1  00: BRAK  =  1 0  sTRAV  =  0sDIST  =  0 

228  0  E  F  L  A  G  =  0 

2290  X=0 

2300  RETURN 

2310  REM  ************************* 

2320  REM  DELAY 

2330  FOR  0=1  TO  IOOOsNEXT  0 

2340  RETURN 
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Up,  Up 
and  Away 


Flight  simulators  are  probably  the  most  entertaining  type  of  simu¬ 
lation  programs.  Most  of  us  will  never  learn  to  fly,  but  would  some¬ 
how  like  to  enjoy  the  experience.  A  flight  simulation  program  gives 
you  a  chance  to  find  out  a  little  of  how  it  feels  to  fly  without  ever  leav¬ 
ing  the  ground. 

The  main  challenge  facing  a  pilot  is  to  keep  on  top  of  a  number 
of  different  elements  that  are  changing  all  at  once.  Ignore  any  one  of 
them — like  the  angle  at  which  the  plane  is  flying,  or  the  amount  of 
fuel  you  have  left — for  too  long,  and  your  plane  may  well  drop  out  of 
the  sky.  Although  this  program  does  not  occur  in  real  time,  so  you’ll 
have  a  chance  to  think  about  the  choices  facing  you  before  you  act, 
you’ll  still  find  it  a  fairly  challenging  and  frustrating  simulation  to 
master. 

Even  getting  the  plane  off  the  ground  is  not  particularly  easy  the 
first  few  times  you  run  the  program.  Get  it  in  the  air,  and  you’ll  have 
to  fight  every  second  to  keep  it  there. 

And  once  you  try  to  land  . . . 

Crashing  during  a  landing  attempt  is  a  trifle  inconvenient  in  a 
real  plane.  The  moment  you  try  and  land  150  feet  above  the  ground, 
you’ll  give  thanks  that  you  are  only  flying  your  computer. 

Mastering  the  Controls 

This  simulation  is  the  most  complex  in  the  book.  It  will  take  you 


a  little  longer  to  learn  than  the  others.  This  longer  learning  time  will, 
however,  be  amply  repaid  as  you’re  sure  to  find  this  program  by  far 
the  most  satisfying  to  run.  FLIGHT  SIMULATION  contains  another 
bonus  that  makes  it  very  worthwhile  to  run.  Your  flight  is  automati¬ 
cally  recorded,  so  that  at  any  moment,  while  you’re  still  in  the  air,  you 
can  tell  the  computer  you  want  to  see  the  whole  of  the  current  flight 
over  from  the  beginning.  It  is  very  entertaining  to  watch  your  flight 
quickly  unfolding  again.  The  controls  are  handed  back  to  you  once 
you  reach  the  point  in  the  original  flight  where  you  asked  the  com¬ 
puter  for  a  replay. 

Think  of  the  flight  as  having  three  parts,  each  of  which  requires 
a  different  approach  to  the  controls.  Part  one  is  the  takeoff,  part  two 
is  the  actual  flight,  and  part  three  is  the  landing.  You’ll  become  an  ace 
pilot  fairly  quickly  if  you  concentrate  on  mastering  each  flight  sec¬ 
tion  in  turn. 

Whatever  you  do,  don’t  give  up,  even  after  your  twentieth  at¬ 
tempt  at  landing  has  ended  in  disaster.  The  satisfaction  you’ll  feel 
when  you  make  your  first  perfect  landing  will  more  than  compensate 
for  all  the  frustration  you’ve  encountered  in  the  learning  process. 

This  is  what  you’ll  see  when  you  first  run  the  program: 


HORIZON  HEADING 


RANGE  0  :  TIME  .1  :  22B 


[AIRSPEED  s  0 
ALTIMETER:  D  D  DEG. 

FUEL  :  750 


ELEVATION :  0  :  - 

>  UNDERCARRIAGE  00WN  <  i 


The  line  of  asterisks  in  the  top  left  corner  shows  the  horizon 
line.  This  can  tilt  rather  alarmingly  from  side  to  side  as  you  turn  the 
plane,  or  go  to  the  bottom  of  the  “windshield”  as  you  climb,  or  to  the 
top  as  you  descend.  It  may  take  a  short  while  in  order  for  you  to  be 
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able  to  see  this  line  as  the  horizon,  but  once  you  do,  you’ll  find  it  con¬ 
veys  a  much  better  impression  of  being  in  the  air  than  you  might 
imagine. 

To  the  right  of  the  horizon  is  your  compass.  The  “@”  shows  the 
direction  your  plane  is  heading.  You  always  start  a  flight  facing  due 
north,  and  must  take  off  more  or  less  in  this  direction.  Your  exact 
heading  is  shown  further  down  the  instrument  cluster,  on  the  same 
line  as  ALTIMETER,  where  you’ll  see  “0  DEG.”. 

The  line  of  readings  underneath  the  horizon  and  compass 
shows  the  distance  you’ve  covered  so  far  (the  “range”),  the  elapsed 
time  of  the  flight,  and  the  direction  in  which  you  must  be  flying  in 
order  to  land — assuming  that  you  get  this  baby  up  in  the  air,  and  keep 
it  there  for  more  than  a  few  seconds!  You  need  to  be  within  12  degrees 
of  this  heading  for  a  successful  landing.  The  required  heading 
changes  from  run  to  run,  but  does  not  change  during  a  flight 

Shown  underneath  this  is  your  airspeed,  height  above  the 
ground  (altimeter),  and  remaining  fuel.  The  line  of  dashes  ending  in 
a  “greater  than”  sign  ( — >)  indicates  the  magnitude  of  each  of  these 
readings.  That  is,  the  line  gets  longer  as  you  go  faster  or  climb  higher. 

The  elevation  is  the  angle  of  your  plane  relative  to  the  ground. 
When  you  enter  a  command,  by  touching  a  single  key,  a  full-word  ver¬ 
sion  of  the  command  appears  in  the  position  currently  occupied  by 
the  series  of  dashes  you  can  see  after  the  elevation  angle  in  the  sam¬ 
ple  run  above.  Finally,  you  are  told  whether  or  not  your  undercarriage 
is  down. 

After  a  few  inputs,  the  screen  looks  like  this: 


HORIZON  HEADING 


RANGE  .6  :  TIME  1.3  :  226 

AIRSPEED  :  30 

ALTIMETER!  0  0  DEG. 

FUEL  >692 

ELEVATION!  20  :  NOSE  UP 

>  UNDERCARRIAGE  DOWN  <  : 
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Your  fuel  has  gone  down  slightly,  your  airspeed  is  up  to  30,  and 
the  nose  of  the  plane  is  pointed  20  degrees  into  the  air.  You  can  see, 
from  the  line  down  near  the  bottom  right-hand  corner  of  the  screen, 
that  NOSE  UP  is  the  full  equivalent  of  the  most  recent  command  you 
entered. 

A  little  later,  and  we  are  in  the  air: 


RANGE  1  :  TIME  2  :  226 


AIRSPEED  ;  51 


ALTIMETER:  66  359  DEG. 


You  need  an  airspeed  of  between  45  and  60,  and  an  elevation 
greater  than  10,  in  order  to  get  off  the  ground.  Let’s  try  turning: 


HORIZON  HEAD ING 
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Note  that  the  undercarriage  is  now  up  (which  saves  on  fuel  by 
decreasing  drag  on  the  plane)  and  the  “horizon”  is  now  sloping  to 
down  to  the  right,  as  the  plane  banks  left  It  is  now  heading  at  344 
degrees,  and  the  @  symbol  on  the  compass  has  moved  to  show  the 
approximate  direction  in  which  the  plane  is  flying. 


:ALTIHETER:  353  3  DEG. 


>  UNDERCARRIAGE  UP  < 


In  this  “snapshot,”  taken  a  few  moments  later,  we  have  started 
to  bank  to  the  right  Our  airspeed  is  up  to  59,  and  we’ve  continued  to 
climb.  However,  the  elevation  has  fallen,  so  the  rate  of  climb  will  de¬ 
crease.  As  we  level  off,  the  horizon  gradually  tilts  back  to  the  hori¬ 
zontal: 


HORIZON  HEADING 


158 


As  I  said,  there  are  an  awful  lot  of  things  to  keep  track  of.  While 
concentrating  on  the  direction  in  which  I'm  flying,  I’ve  been  neglect¬ 
ing  the  plane’s  elevation — which  has  been  slowly  falling: 


HORIZON  HEADING 


AIRSPEED  :  152 


: ALTIMETER :  593  31  DEG. 

:FUEL  :  457 

lELEVATIONs  0  :  THROTTLE  ON 

s  >  UNDERCARRIAGE  UP  < 

Suddenly  I  notice  the  nose  is  pointing  downward — note  how  the 
horizon  is  now  right  at  the  top.  I  frantically  try  to  climb: 

HORIZON  HEA0IN6 


RANGE  11.3  s  TIME  8.1  :  226 


AIRSPEED  :  245 


ALTIMETER:  250  47  DEG. 


FUEL  :  403 


ELEVATION* -11  :  CLIMB 

>  UNO ERCARR I  AGE  UP  < 
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However,  too  much  is  happening  at  once,  with  the  inevitable  re¬ 
sult: 


CRASH  I 

CR  ASH  1 

CRASH  1 

CRASH  I 

CRASH! 

CRASH  I 

CRASH  I 

CRASH  I 

CRASH  I 

CRASH  I 

CRASH! 

CRASH  I 

CRASH  I 

CRASH  I 
CRASH ! 

CRASH  I 
CRASH  I 
CRASH  I 
CRASH  I 


The  final  picture  is  pretty  bleak: 
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The  commands  you  have  at  your  disposal  are: 

R  This  allows  you  to  repeat  the  current  flight  from  the  beginning  up 
to  that  point 

Space  bar  This  is  used  for  “throttle  on,”  and  increases  your  speed. 

Use  this  to  throttle  back. 

@  To  increase  elevation. 

A  To  decrease  elevation. 

Z  To  turn  left 
M  To  turn  right 

1  To  change  undercarriage  from  up  to  down,  or  from  down  to  up. 

Remember,  to  take  off  your  speed  must  be  between  45  and  60, 
and  your  elevation  must  be  greater  than  10.  To  land,  your  undercar¬ 
riage  must  be  down  ( !),  your  heading  must  be  within  12  degrees  of  the 
setting  shown  beneath  the  compass,  you  must  be  at  15  or  below  on 
your  altimeter,  and  your  speed  must  not  be  greater  than  20.  You’ll 
find  that,  as  in  real  life,  landing  is  even  harder  than  taking  off. 

The  complete  FLIGHT  SIMULATION  listing  is  given  in  the  next 
chapter. 
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The 

FLIGHT  SIMULATION 
Listing 


Now  it’s  time  to  earn  your  wings  with  this  listing: 


10  REM  FLIGHT  SIMULATION 
20  R  P  T  =  0 

30  LD=I NT( RND ( 1 ] *360] 

40  DIM  E$(1000] 8  R  E  M  THIS  HOLDS  FLIGHT 
RECORD 

50  DIM  A$ ( 7 ] , C $ [ 7 ] : REM  THESE  ARRAYS 
HOLD  HORIZON  AND  COMPASS  OUTPUT 
60  REM  ************************** 

70  GOSUB  2  3  2  0  : R  EM  INITIALIZE 

80  IF  C  R  A  S  H  =  0  THEN  GOSUB  8  2  0 ! R  EM  HORIZON 

/COMPASS 


90  GOSUB  5  0  0  : R  EM  PRINTOUT 
100  IF  C  R A  S  H  =  1  THEN  END 

110  IF  L A  N  D  =  1  AND  UF  LA  G  =  1  THEN  PRINT  "WE 
LL  DONE.  A  PERFECT  L A ND  I  N G  !  I  " :  E N D 
120  IF  L A  N  D  =  1  AND  UF  LAG  =  0  THEN  PRINT  "YD 
UR  WHEELS  ARE  UP":GOSUB  178D:G0T0  90 
1 3  D  T  =  AIRSPEED : STALL  =  0 
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1 40  X  $  =  I  N  K  E  Y  $ 

150  IF  X  $  =  "  R  "  THEN  RPT  =  1  i GOTO  70 

160  IF  R  P  T  =  1  AND  E $ [ C L 0 C K +  1  ) = " "  THEN  RPT 

=  0  s  G  OTO  140 

170  IF  R  P  T  =  1  THEN  X  $  =  E $ ( C L DC K  +  1  ] 

180  IF  X  $  =  "  "  THEN  140 

190  IF  CL0CK<999  THEN  E $ ( C L 0 C K + 1 ) =X $ 

800  IF  TAKE0V=1  THEN  E L E V A T E = I N T [ E L E V A T E 
+  RNO ( 1  J  *2-R  ND (1  ) *3 ] 

810  IF  AIRSPEE0<3  THEN  890 

220  IF  X  $  =  " Q "  THEN  E L E VA T E= E L E V A T E  +  5 s E F L 
A  G  =  5  s  IF  ELEVATE>60  THEN  STA  LL  =  1 
230  IF  X  $  =  " A "  THEN  E L E V A T E  =  E L E V A T E- 5 !  E F L 
AG  =  -5  s I F  ELEVATE<-70  THEN  STALL  =  -1 
840  IF  STALLOO  THEN  GOSUB  1640 
250  IF  ALTIMETER<1  THEN  290;REM  PREVENTS 
ORAMATIC  TURNS  ON  THE  GROUND 
260  IF  X$="Z"  THEN  W A= W A - . 5 s A N G = A N G - 6 s I F 
W  A  <  -  3  THEN  17  A  =  -  3 

270  IF  X  $  =  " H "  THEN  W A  =  W A+ . 5 : A N G =A N G  +  6 ! I F 
W  A  >  3  THEN  W  A  =  3 

280  ANG=INT{ANG  +  RND(1  ) *  2-R  NO [ 1  )  *  2  ) 

2  90  IF  X$  =  "  "  THEN  A I R S P E ED = A  I R S P E E 0  +  B . 5 

300  IF  X$  =  »."  THEN  A  I R S P E E 0 = A  I R S P E E D -7 

310  AIRSPEED=AIRSPEE0-ELEVATE/5 

320  IF  U  F  L  A  G  =  1  THEN  A  I R S P E ED =A I R S P E E D ~1  . 

5sFUEL=FUEL-„5 

330  IF  AIRSPEEO  <0  THEN  AIRSPEE0=0 
340  IF  AIRSPEEO  >400  THEN  AIRSPEED=400 
350  IF  X$  =  "1"  ANO  UF  LA  G  =  0  THEN  UFLAG=1sG 
OTO  370 

360  IF  X$  =  »1"  AND  UFLAG=1  THEN  U  F  L A  G  =  0 
370  FUEL  =  FUEL— (ABS( T-A I R S P E ED ] /I  0 ) -3 .75 
380  IF  F  U  E  L  < 1  THEN  GOSUB  1780 
390  IF  TAKE0V=1  THEN  420 

400  IF  ELEVATE>10  ANO  AIRSPEE0>45  ANO  AI 
RSPEED<60  ANO  U  F  LA  G  =  1  THEN  TAKE0V=1 
410  IF  TAKE0V=0  THEN  A L T I M ET E R = 0 s G 0 T 0  45 

0 

420  IF  LA  NO  =0  AND  AIRSPEEDOO  THEN  ELEVA 
TE=ELEVATE-5sALTIMETER=9*ALTIMETER/10 
430  ALTIMETER=ALTIMETER+INT( ( ( ELEVATE+ . 1 
)*AlRSPEED]+EFLAG*AlRSPEED/1000]/80 
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440  IF  ALTIMETEROOO  AND  TAKE0V=1  THEN  A 
LTIMETER=ALTIMETER+AIRSPEED/30+ELEVATE 
450  IF  ALTIMETERCO  THEN  GOSUB  1  780  : R  EM 
CRASH 

460  REM  CHANGE  NEXT  TWO  LINES  TO  MAKE  IT 
EASIER  (OR  EVEN  HARDER)  TO  LAND 
470  IF  ALTIMETER>15  AND  AIRSPEED>20  OR  T 
A  K  E  0  V  =  0  THEN  80 

480  IF  ABS ( ANG-LD )  <1  3  OR  A B S ( A N G  + 3 6 0 - LD ) 

<13  THEN  LAND=1 : GOTO  80 

490  REM  ************************** 

500  REM  PRINTOUT 
510  CLS 

520  PRINT  "  HORIZON" 5TAB(20)5"  HEADING" 

5  3  0  EV  =  INT( ELEVATE/1  0) 

540  IF  E  V  >  2  THEN  EV  =  2 
550  IF  EV  <-2  THEN  EV  =  -2 

560  IF  EVOO  AND  TAKE0V  =  1  AND  C  R  A  S  H  =  0  TH 
EN  GOSUB  1920 

570  PRINT  "s - - S - 

580  FOR  d  =  1  TO  7 

590  PRINT  "s  "  j  A  $  [  J  } f"  s " ; C  $ ( J )  |  " 

6  0  0  A  $ ( J ] = "  " 

610  NEXT  d 

620  PRINT  "  : - 8" 

630  DIST  =  DIST  +  ABS(  (COS(ELEVATE)  Jf'AIRSPEE 
D  ]  /  3  6  0 

640  C LDCK=CL0CK+1 

6  50  PRINT  "  :  RANGE" I  NT ( D I ST*1  0  ) /I  0  "  8  TIME 
"  I  NT [ C  LOCK ) /I  0 ;  "  8 " LD 

660  PRINT  - S  " 

670  PRINT  "sAIRSPEED  s " I N T ( A  I  R S P E ED ) 

6BD  PRINT  *'s"5LEFT$(Q$,INT(AIRSPEED/2D)) 

5  "  >  " 

690  PRINT  " i A LT IMETER s *  I  NT ( ALTIMETER )  ; 

7  0  D  IF  A  N  G  <  0  THEN  PRINT  TAB[19)?360  +  ANG" 
DEG." 

710  IF  A  N  G  >  =  0  THEN  PRINT  TAB(19)  ; A  N  G " D  E  G 

720  MR  =  I NT[ ALTIMETER/30 )  8  I F  MR  >20  THEN  M 
R  =  2  0 


730  PRINT  ;  L  EF  T  $  (  Q  $  »  M  R  ]  j  "  >  •■ 

740  PRINT  "  :  F  U  E  L  !nINT(FUEL) 

750  PRINT  " s"  }LEFT$(Q$,20-INT(FUE  L/ 7  5  0  ]) 

5  »  >  " 

760  PRINT  "s - s« 

770  PRINT  "s ELEVATION! "ELEVATE" :  " ;  : G 0 S U 

B  2210:PRINT  US 

78  0  IF  UFLAG  =  1  THEN  PRINT  "  ! " j T A B ( 5 )  5 " > 
UNDERCARRIAGE  DOWN  <  5” 

790  IF  UF  LA  G  =  0  THEN  PRINT  " ! » ; T A B [ 6 )  5 " > 
UNDERCARRIAGE  UP  < 

BOO  RETURN 

BIO  REM  *  *  **********  *  ************  « 

B  2  0  REM  ASSIGN  HORIZON/COMPASS 

030  IF  ABS ( I  NT ( WA+ . 5 )  ) =3  THEN  GOSUB  9B0 

840  IF  ABS ( I  NT ( WA+ „ 5 )  J =2  THEN  GOSUB  1070 

B  5  0  IF  ABS ( INT ( WA+ .  5 ]  ]  =1  THEN  GOSUB  1160 

860  IF  lNT[\VA+„5)=0  THEN  GOSUB  1250 

870  REM  NEXT  TWO  LINES  USED  TO 
GRADUALLY  STRAIGHTEN  UP  WINGS 
800  IF  W  A  >  0  THEN  W A  =  W A  -  „  2 

8  90  IF  W A  <  0  THEN  WA  =  WA+„2 
900  IF  W A  > „ 2  THEN  1350 
910  FOR  Z  =  1  TO  7 

920  M  $ { 6-Z] =A$ [ Z] 

930  NEXT  Z 

940  FOR  Z=1  TO  7 

9  50  A  $ ( Z ) =M  $ ( Z ) 

960  NEXT  Z 

970  GOTO  1350 

900  REM  W  A  =  3  OR  -3 

9  9  0  A  $  (  1  J  = "  *  » 

1  0  D  0  A  $  [  2  ]  =  "  *  *  " 

1010  A$(3)="  *  *  " 

1020  A  $ ( 4 ) = "  *  *  " 

1030  A  $ ( 5 )  =  ■  *  *  " 

1040  A  $  (  B  )  = "  *  *  " 

1050  A  $  (  7  )  =  "  *  *  " 

1060  RETURN 

1  070  REM  W  A  =  2  OR  -2 

1  0  B  0  A  $  (  1  )  =  "  " 


165 


1090  A  $  [  2  )  =  " 

1100  A  $  [  3  )  =  11  * 

1110  A  $ [ 4 ) = " 

1120  A  $ [ 5 ) = "  *  *  * 

1130  A  @ [ B ] = " *  *  * 

114  0  A  $ [ 7 ] = " 

1150  RETURN 
1160  REM  WA=1  OR  -1 

117  0  A  $ [ 1  ] = “ 

118  0  A  $ [ 2 ] = " 

1190  A  $  (  3  ]  =  11 
1200  A  $ [ 4 ) = "  ****** 

1210  A$(5)=" **** 

1  2  2  0  A  $  [  6  )  =  " 

1230  A  $ ( 7 ) = " 

1240  RETURN 
1  250  REM  W A  =  0 
1  2  6  0  A  $ [ 1  J  = " 

1270  A  $ ( 2 ) = " 

1280  A  $ ( 3 ] = " 

1290  A$(4]  =  "*****’**’*** 

1300  A  $ ( 5 ] = " 

1310  A  $ ( 6 ) = " 

1  320  A  $ [ 7 }  =  " 

1330  RETURN 
1340  REM  **** 

1350  REM  ASSIGN  COMPASS  STRINGS 
1360  F2=ANG-F1 

1  370  IF  F  2  <  0  THEN  F A= I N T [  [ F 2  +  3 7 5  ] / 3 0 ) 

1  380  IF  F  2  >  =  0  THEN  F A= I  NT [  ( F 2  +  1 5 ] / 3 0 ) 

1  390  IF  F  A  =  1 2  THEN  FA  =  0 
1400  C  $ ( 1  ) =  »  ,  N  , 

1410  IF  F  A  =  1 1  THEN  C$(2)="  "sGOTO 

1450 

1  420  IF  F  A  =  0  THEN  C $ [ 2 ] = «  „  „ @ .  .  ":GOTO 

1  450 

1  430  IF  F  A  =  1  THEN  C$(2]="  D0;@.  "sGOTO 

1  45  0 

1  440  C  $  (  2  ]  =  "  .  » 

1450  IF  F  A  =  1 0  THEN  C$[3]=  "  s  .."sGOT 

0  1480 

1  460  IF  F  A  =  2  THEN  C$(3)=  11  ..  s  @„":GOTO 

1  480 

1  47  0  C  $  (  3  ]  =  " . " 


1  480  IF  F  A  =  9  THEN  C  $ [ 4 ) = "  W  @  -  X  —  E"  ; GOTO 
1510 

1  490  IF  F  A  =  3  THEN  C $ [ 4 ] = "  w- -X- @ E " s G OT 0 
1510 

1  5  00  C  $ ( 4 ) = "  W--X  —  E" 

1510  IF  F  A  =  8  THEN  C  $  [  5  )  =  "  s  „  .  "  :  G  0  T  0 

15  40 

1520  IF  FA=4  THEN  C$(5]="  „  „  s  @„";GOTO 

1540 

1530  C  $ [ 5 ] = "  .  .  ; 

1540  IF  FA  =  7  THEN  C  $  (  6  ]  =  "  „  @  .  »:GOTO 

1580 

1550  IF  F  A  =  B  THEN  C  $  (  6  ]  =  »  „  . @ :  G  0  T  0 
158  0 

1  56  0  IF  F  A  =  5  THEN  C$(6)="  "sGOTO 

1580 

1570  C  $ ( 6 ) = "  ..5..  " 

1580  C  $ [ 7 ] =  "  .S.  " 

1  590  IF  A  N  G  >  3  G  0  THEN  ANG  =  ANG-360 
1  60  0  F  2  =  A  N  G 

1610  IF  W>0  THEN  W=W- . 4 

1  6  20  IF  W<0  THEN  VK  =  W+.4 

1 630  RETURN 

1640  REM  STALL/FALL 

1650  IF  ST ALL=~1  THEN  1710 

1  6  6  0  FOR  J  =1  TO  1  0 

1670  PRINT  TAB[J) 5" YOU  HAVE  STALLED!" 
1680  NEXT  J 

1690  AIRSPEED=AIRSPEED/4 

1700  RETURN 

1710  FOR  J=1  TO  1 0 

1720  PRINT  TAB[J] 5 "UNCONTROLLED  DIVEII" 
1730  PRINT  TAB ( 21 -J 1 } " PULL  UPII" 

1740  NEXT  J 

1750  ALTIMETER=4*ALTIMETER/5 
1760  RETURN 

1780  REM  CRASH 
1  790  C  R  A  S  H  =  1 
1800  ALTIMETER=0 

1810  M  $  =  "  *  *  *C  R  *  *  A  **  S*  H*  I  !  * "  s  R  E  M 
25  CHARACTERS  LONG 
1820  FOR  J=1  TO  20 
1830  PRINT  TAB [ J ]; "CRASH ! " 
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1  840  PRINT  TAB [ 21  - J )  ; " CR ASH  I " 

1850  NEXT  J 

1860  FOR  J=1  TO  7 

1 870  G=INT[RND [1 J*11 J+1 

1880  A$[J}=MID$(M$,G,14) 

1890  NEXT  J 
1900  RETURN 

1910  REM  ************************** 

1920  REM  ADJUST  HORIZON 

1  9  3  0  G  $  = "  ":REM  14  SPACES 

1940  ON  EV+3  GOSUB  1960,2020,2070,2080,2 
1  40 

1950  RETURN 
I960  REM  E V=-2 
1970  FOR  J=1  TO  4 
1980  A  $ [ J  J  =  A  $ ( J  +  3 ) 

1990  NEXT  J 

2000  A$ [ 5 ) =G$ : A$ ( 6  )  =G$ s A$ ( 7 J =G $ 

2010  RETURN 
2020  REM  EV=-1 
2030  FOR  J=1  TO  6 
2040  A  $ ( J } =  A  $ ( J  +  1  ) 

2050  NEXT  J 
2060  A  $ ( 7 ) =  G  $ 

2070  RETURNsREM  EV=0 
2080  REM  EV=1 
20  90  FOR  J  =  6  TO  1  STEP  -1 
2100  A  $ [ J  +  1  ] =  A  $ ( J ) 

2110  NEXT  J 
2120  A  $ l 1  )  =  G  $ 

2130  RETURN 

2140  REM  E  V  =  2 

2150  FOR  J  =  4  TO  1  STEP  -1 

2160  A  $ ( J  +  3 ) = A  $ ( J ) 

2170  NEXT  J 

2180  A$(1 ]=G$:A$(2)=G$:A$(3)=G$ 

2190  RETURN 

2210  REM  INPUT  INTO  COMMAND  NAME 
2220  U  $  =  " - " 

2230  IF  X$="  »  THEN  U $ = " T H R OTT L E  ON" 

2240  IF  X$=".n  THEN  U$=" THROTTLE  OFF" 
2250  IF  X$="Q»  AND  ALTIMETER>0  THEN  U$=» 
CLIMB" 


SSBO  IF  X  $  =  "  Q  "  AND  ALTIM  ETER  =  0  THEN  U$  = 
NOSE  UP" 

2270  IF  X  $  = "  A "  THEN  U$  =  "NOSE  DOWN" 

2  2  8  D  IF  XS="Z"  THEN  US="BANK  LEFT" 

2  2  9  D  IF  X  $  =  " M "  THEN  U$=»BANK  RIGHT" 

2300  RETURN 

2310  REM  ********* * ** * *****##*##** * 

2320  REM  INITIALIZATION 
2330  CLS 

2340  RANDOMIZE  V A L ( R I G HT $ [ T I M E $ , 2 ] ) 

2350  Q  $  =  " - "sREM 

21  CHARACTERS  IN  STRING 
2360  UFLAG=1 : REM  UNDERCARRIAGE  - 
1  -  DOWN,  0  -  UP 

2370  EFLAG=0:REM  CLIMB  RATE 
2380  ANG  =  0 : TAK  E  0  V  =  0 : LAND=0 
2390  AIRSPEED=0 

2400  D  I  S  T  =  0 :REM  DISTANCE  CDVERED  'RANGE 
2410  ALTIM  ETER  =  0 

2  4  2  D  ELEVATE  =  0: REM  ANGLE  OF  ELEVATION 
2430  WA  =  0  s  R  EM  'WING  ANGLE;  USED  IN 

HORIZON  PRINTOUT 

2440  FUEL=750:CRASH=0:F2=0:F1=OsREM 
FOR  DIRECTION  C H A N G E/ C OM P A SS  ROUTINE 
2450  C  L  0  C  K  =  0  :  REM  TIME 
2  4  6  0  X  $  = 

2470  RETURN 

2480  REM  ALL  TAKE-OFFS  ARE  INTO  THE 
NORTH  (SPEED  45-60;  ELEVATION  >10) 
2490  REM  LANDING  DIRECTION  SHOWN 
8ELDW  COMPASS 

2500  REM  YOU  MUST  BE  WITHIN  12  DEGREES 
OF  THIS  FOR  A  SUCCESSFUL  LANDING 
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Additional  Listings 
for  APPLE  lie  and 
COMMODORE  64 


SPECIAL  INSTRUCTIONS  FOR  COMMODORE  PROGRAM- 
MERS:  You’ll  note  that  many  of  the  PRINT  statements  in  the  Com¬ 
modore  64  listings  begin  with  three-letter  codes  within  brackets,  like 
this:  [RED]. 

Do  not  type  these  in  directly.  These  indicate  the  use  of  the  Com¬ 
modore’s  number  keys  to  control  screen  colors.  (Note  that  each  of 
the  number  keys  also  has  a  color  marked  on  it.) 

For  example,  when  you  see  [RED]  in  the  listing,  you  should 
press  the  “CTRL”  and  the  “RED”  key — which  is  also  the  “3”  key — at 
the  same  time. 
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SPACE  LANDING  SIMULATION  /  Apple  lie  version 

10  REM  SPACE  LANDING  SIMULATION  I 
15  REM  APPLE  IIE/IIC  VERSION 
20  GOSUB  8020 

30  REM  ***####  **#!)!***  ^ssJcsitsScsJtsSs^ss}: 

40  REM  STARTING  VALUES 
50  FUEL  =  200  +  RND  ( 1 )  *  40 
60  VELOCITY  =  RND  (1)  *  20-6 
70  HEIGHT  =  500  -  RND  (1)  *  10 
80  HOME 

90  PRINT  "  FUEL”;  TAB(  12)"  VELOCITY";  T 
AB(  24)"  HEIGHT" 

100  REM  #$***  *******  sis******** 

110  REM  MAJOR  CYCLE 

120  GOSUB  430 

130  IF  FUEL  <  =  0  THEN  FUEL  =  0: THRUST 

=  0:  GOTO  170 
140  GET  A$ 

150  IF  A$  <  "0"  OR  A$  >  "9"  THEN  140 
152  P  =  INT  (HEIGHT  /  2  *  1.25) 

155  IF  P  <  1  THEN  P  =  1 

157  IF  P  >  255  THEN  P  =  255 

159  D  =  150:  GOSUB  8000 

160  THRUST  =  VAL  (A$)  +  .1 
170  FUEL  =  FUEL  -  THRUST 
180  FLAG  =  THRUST  -  2 

190  THRUST  =  0 

200  HEIGHT  =  HEIGHT  +  VELOCITY  +  FLAG  /  4 
210  VELOCITY  =  VELOCITY  +  FLAG 
220  IF  HEIGHT  <  =  10  THEN  240 

230  IF  HEIGHT  >  10  THEN  120 
240  IF  VELOCITY  >  -  9  AND  VELOCITY  <  5 

THEN  290 
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250  GOSUB  410 

260  GOSUB  5000:  PRINT  "YOU  HAVE  CRASHED 
INTO  THE  SURFACE. . 

270  IF  HEIGHT  >  0  THEN  HEIGHT  =  -  HEIGH 

T 

280  GOTO  320 

290  GOSUB  5500:  PRINT  "YOU  HAVE  LANDED  S 
AFELY!" 

300  FLASH  :  PRINT  "YOUR  SKILL  RATING  IS 
";  INT  (  -  1000  *  FUEL  /  (VELOC 
ITY  -  HEIGHT)) 

305  NORMAL 
310  HEIGHT  =  0 
320  GOSUB  410 

330  PRINT  "FINAL  INSTRUMENT  READINGS  WER 
E:" 

340  PRINT  "  FUEL";  TAB(  12)"  VELOCITY"; 
TAB(  24)"  HEIGHT" 

350  GOSUB  430 
360  GOSUB  410 

370  IF  HEIGHT  >  =  0  THEN  END 

380  IF  HEIGHT  <  0  THEN  PRINT  "NEW  CRATE 
R  ON  MOON  ";  INT  (  ABS  (100  *  ( 

HEIGHT  +  .2)  /  3))  /  100;"  METERS  DEE 

P !  " 

390  PRINT  "YOUR  SKILL  RATING  IS  ";  INT  ( 
100  *  FUEL  /  (VELOCITY  -  HEIGHT 
)) 

400  END 

410  PRINT  " - 

415  GOSUB  5200 
420  RETURN 

430  PRINT  INT  (100  *  FUEL)  /  100; 

440  PRINT  TAB(  12)  -  INT  (100  *  VELOCI 
TY)  /  100; 

450  IF  HEIGHT  >  =  0  THEN  PRINT  TAB (  2 

4)  INT  (100  *  HEIGHT)  /  100 
460  IF  HEIGHT  <  0  THEN  PRINT 
470  RETURN 
5000  P  =  250 : D  =  255 
5010  GOSUB  8000 
5020  RETURN 


173 


Apple  lie 

5200  P  =  150:  D  =  100 
5210  GOSUB  8000 
5220  RETURN 
5500  P  =  5:D  =  10 
5510  GOSUB  8000 
5520  P  =  P  +  15 

5530  IF  P  <  250  THEN  GOTO  5510 
5540  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, P:  POKE  11, D:  CALL  768:  RET 
URN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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MONTE  CARLO  DEMONSTRATION  /  Apple  lie  version 

10  REM  MONTE  CARLO  DEMONSTRATION 
15  REM  APPLE  IIE/IIC  VERSION 
20  GOSUB  370:  REM  INITIALISE 

30  REM  ******************** 

40  REM  MAJOR  CYCLE 
50  GOSUB  100:  REM  PRINT 

60  IF  P  =  EP  AND  Q  =  EQ  THEN  PRINT  :  PR 

INT  "DEMONSTRATION  OVER":  END 
70  GOSUB  230:  REM  GENERATE  MOVE 

80  GOTO  50 

90  REM  ******************** 

100  REM  PRINTOUT 
110  A$(P,Q)  =  "0" 

120  M  =  M  +  1 
130  VTAB  5 
140  PRINT  "MOVE:  ";M 
150  FOR  X  =  1  TO  10 
160  FOR  Y  =  1  TO  10 
170  PRINT  A  $ ( X , Y ) ; "  "; 

180  NEXT  Y 
190  PRINT 
200  NEXT  X 
210  RETURN 

220  REM  ************* 

230  REM  GENERATE  MOVE 
240  A$ ( P , Q)  = 

250  G  =  0 

260  T  =  INT  (  RND  (1)  *  4)  +  1 
270  ON  T  GOSUB  310,320,330,340 
280  IF  G  =  0  THEN  260 

290  IF  G  =  1  AND  RND  (1)  >  .5  THEN  260 
300  RETURN 

310  IF  P  >  1  THEN  P=P-1:G=G+1:  R 
ETURN 

320  IF  P  <  10  THEN  P=P+1:G=G+1: 
RETURN 

330  IF  Q  >  1  THEN  Q=Q-1:G=G+1:R 
ETURN 

340  IF  Q  <  10  THEN  Q=Q+1:G=G+1: 
RETURN 
350  RETURN 
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360  ' REM  ********** 

370  REM  INITIALISE 

380  HOME 

400  DIM  A$(10, 10) 

410  FOR  X  =  1  TO  10 
420  FOR  Y  =  1  TO  10 
430  A$ ( X , Y )  =  "." 

440  NEXT  Y 
450  NEXT  X 
460  PRINT  :  PRINT 

470  PRINT  "ENTER  FIRST  START  CO-ORDINATE 
(LESS  THAN  10)" 

480  INPUT  P 

490  IF  P  <  1  OR  P  >  10  THEN  480  v 
500  PRINT  "ENTER  SECOND  START  CO-ORDINAT 
E  (LESS  THAN  10)" 

510  INPUT  Q 

520  IF  Q  <  1  OR  Q  >  10  THEN  510 
530  PRINT  :  PRINT 

540  PRINT  "ENTER  FIRST  END  CO-ORDINATE  ( 
LESS  THAN  10)" 

550  INPUT  EP 

560  IF  EP  =  P  OR  EP  <  1  OR  EP  >  10  THEN 
550 

570  PRINT  "ENTER  SECOND  END  CO-ORDINATE 
(LESS  THAN  10)" 

580  INPUT  EQ 

590  IF  EQ  =  Q  OR  EQ  <  1  OR  EQ  >  10  THEN 
580 

600  A$ ( P , Q)  =  "0" 

610  A$ ( EP , EQ)  =  "X" 

615  HOME 
620  RETURN 
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CELL  CLASH  SIMULAT80N  /  Apple  lie  version 


10  REM  SIMULTANEOUS  EQUATIONS 

12  REM  APPLE  IIE/IIC  VERSION 

20  HOME 

30  GOSUB  8020 

40  HS  =  0 

45  SD  =  RND  (1) 

50  FD  =  RND  (0) 

60  PRINT  :  PRINT  "DECAY  FACTOR  IS  " ; FD 
70  GOSUB  550 
80  HOME 

90  PRINT  :  PRINT 

100  PRINT  "ENTER  NUMBER  OF  CELL  X  TO 
START  (LESS  THAN  40) 

110  INPUT  CP:  IF  CP  <  1  OR  CP  >  39  THEN 
110 

120  PRINT  :  PRINT 

130  PRINT  "WE  HAVE  " ; CP ; "  X  CELLS" 

140  PRINT  :  PRINT 

150  PRINT  "ENTER  NUMBER  OF  CELL  Y  TO 
START  (LESS  THAN  40) 

tt 

160  INPUT  EP:  IF  EP  <  1  OR  EP  >  39  THEN 
160 

170  HOME  :  VTAB  5:  PRINT  "PLEASE  STAND  B 
Y.  . 

180  GOSUB  550:  HOME 
190  DA  =  1 

200  IF  CP  >  EP  /  FD  THEN  CP  =  EP  /  FD 

210  PRINT  " - " 

220  PRINT  "TIME  ELAPSED:  " ; DA 
230  PRINT  INT  (CP);"  CELL  X" 

240  PRINT  INT  (EP);"  CELL  Y" 

250  REM  ********************* 

260  REM  MAJOR  CYCLE 
270  GOSUB  550 
280  DA  =  DA  +  1 

290  PRINT  " - " 

300  PRINT  "TIME  ELAPSED:  " ; DA 
305  P  =  100: D  =  50:  GOSUB  8000 
310  IF  CP  >  EP  /  FD  THEN  CP  =  EP  /  FD 
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320  REM  EQUATIONS  FOLLOW;  MODIFY  PARTS 
OF  THEM  TO  SEE  WHAT  HAPPENS 
330  CP  =  CP  +  ((8  *  CP  -  CP  *  EP  /  3)  *  F 
D) 


340 

EP  =  EP 

+  ((4  *  EP  -  EP  * 

CP)  *  .01) 

350 

PRINT 

INT  (CP);”  CELL  X' 

360 

PRINT 

INT  (EP) CELL  Y* 

370 

IF  EP 

<  2  OR  CP  <  2  THEN 

410 

380 

GOSUB 

550 

390 

GOTO  280 

400 

REM  ********************* 

410 

IF  DA 

>  HS  THEN  HS  =  DA 

420 

PRINT 

:  PRINT 

430 

PRINT 

"YOUR  CELL  CLASH  SIMULATION  SU 

RVIVED" 

440 

PRINT 

"FOR  " ; DA ; "  TIME  PERIODS" 

450 

PRINT 

460 

PRINT 

"THE  BEST  SURVIVAL 

TIME  SO  FAR 

IS  " 

1 ;  HS 

470 

GOSUB 

550 

480 

PRINT 

490 

PRINT 

"DO  YOU  WANT  A  NEW 

RUN  (Y  OR  N 

)?" 

500 

GET  A$ 

510 

IF  A$ 

<  >  "Y"  AND  A$  < 

>  "N"  THEN 

500 

520 

IF  A$ 

=  "Y"  THEN  HOME  : 

GOTO  60 

530 

PRINT 

"OK":  PRINT  :  PRINT  :P  =  200 :D 

=  250:  GOSUB  8000:  END 

540  REM  ********************** 

550  FOR,  J  =  1  TO  2000:  NEXT  J 
560  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, P:  POKE  11, D:  CALL  768:  RET 
URN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
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8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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LIFE  /  Apple  BBe  version 

10  REM  CONWAY’S  LIFE  SIMULATION 
15  REM  APPLE  IIE/IIC  VERSION 
20  REM  DEFINED  INITIAL  COLONY 
30  GOSUB  460:  REM  INITIALISE 
40  REM  ********************* 

50  REM  MAJOR  CYCLE 
60  GE  =  GE  +  1 

70  GOSUB  290:  REM  PRINTOUT 
80  GOSUB  110  REM  EVOLVE 
90  GOTO  60 

100  REM  ******************** 

110  REM  EVOLVE 
120  FOR  X  =  2  TO  12 
130  FOR  Y  =  2  TO  12 
140  C  =  0 

150  IF  A$(X  -  1,Y  -  1)  =  "X"  THEN  C  =  C 
+  1 

160  IF  A$(X  -  1 , Y)  =  "X"  THEN  C  =  C  +  1 

170  IF  A$( X  -  1 , Y  +  1)  =  ”X"  THEN  C  =  C 

+  1 

180  IF  A$ (X , Y  -  1)  =  "X"  THEN  C  =  C  +  1 

190  IF  A$ (X , Y  +  1)  -  "X"  THEN  C  -  C  +  1 

200  IF  A$ ( X  +  1 , Y  -  1)  =  "X”  THEN  C  =  C 

+  1 

210  IF  A$ (X  +  1 , Y)  =  "X"  THEN  C  =  C  +  1 

220  IF  A$ ( X  +  1 , Y  +  1)  -  "X”  THEN  C  =  C 

+  1 

230  IF  A$(X,Y)  =  "X"  AND  C  <  >2  AND  C 

<  >  3  THEN  B$(X,Y)  =  "  " 

240  IF  A$ ( X , Y)  =  "  ”  AND  C  =  3  THEN  B$(X 
,Y)  =  "X" 

250  NEXT  Y 
260  NEXT  X 
270  RETURN 

280  REM  ********************* 

290  REM  PRINTOUT 
300  HOME 

305  PZ  =  200 :DZ  =  150:  GOSUB  8000 
310  PRINT 

320  PRINT  TAB(  4) "GENERATION  " ; GE 
330  PRINT 
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340  FOR  X  =  2  TO  12 
350  FOR  Y  =  2  TO  12 
360  A$(X , Y)  =  B$ (X , Y) 

370  PRINT  A$ (X , Y) ; 

380  NEXT  Y 

390  FOR  Y  =  12  TO  2  STEP  -  1 
400  PRINT  A$(X, Y) ; 

410  NEXT  Y 
420  PRINT 
430  NEXT  X 
440  RETURN 

450  REM  Hs******************^ 

460  REM  INITIALISATION 

470  HOME 

480  GOSUB  8020 

500  DIM  A$(13,13),B$(13,13) 

510  VTAB  4:  PRINT  TAB(  11)"PLEASE  STAND 
BY " 

520  FOR  X  =  1  TO  13 
530  PRINT  14  -  X;"  " ; 

540  FOR  Y  =  1  TO  13 

550  REM  FILL  ARRAY  WITH  BLANKS 

560  A$(X,Y)  =  "  " 

570  B$ ( X , Y )  =  "  " 

580  NEXT  Y 
590  NEXT  X 

600  READ  D:  IF  D  =  99  THEN  630 

610  READ  E : A$(D,E)  =  "X" : B$ ( D, E )  =  "X" 

620  GOTO  600 

630  GE  =  0 

640  RETURN 

650  DATA  5, 5, 5, 9, 6, 6, 6, 8 
660  DATA  7,7 
670  DATA  8, 6, 8,8, 9, 5, 9, 9 
700  DATA  99 
8000  REM  SOUND  ROUTINE 
8010  POKE  10, PZ:  POKE  11,DZ:  CALL  768:  R 
ETURN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 
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POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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ROBOT  LOGO  /  Apple  lie  version 

100  REM  ROBOT  LOGO 

105  REM  APPLE  IIE/IIC  VERSION 

110  GOSUB  1730:  REM  INITIALISE 
120  GOTO  490 

130  REM  ********************* 

140  REM 

150  REM 

160  REM 

170  REM 

180  REM 

190  REM 

200  REM 

210  REM 

220  REM 

230  REM 

240  REM 

250  REM 

260  REM 

270  REM 

280  REM 

290  REM 

300  REM 

310  REM 

320  DATA 

330  REM  *********************** 

340  REM  INT  UX,AX 

350  UX  =  INT  (UX  +  .5): AX  =  INT  (AX  +  . 

5) 

360  RETURN 

370  REM  *********************** 

380  REM  PRINT  OUT 

390  HOME 

400  PRINT  "STEP  ";PSN;"  >  ";A$(PSN):  PRI 
NT 

410  FOR  J  =  1  TO  DE 

420  FOR  K  =  1  TO  BR 

430  PRINT  Z$(J,K) ; 

440  NEXT  K 

450  PRINT 

460  NEXT  J 

470  RETURN 
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480  REM  *********************** 

490  REM  READ  PROGRAM 
500  COUNT  =  COUNT  +  1 
510  READ  A$ (COUNT) 

520  IF  A$ ( COUNT)  =  THEN  550 
530  IF  COUNT  <  20  THEN  500 
540  REM  *********************** 

550  REM  EXECUTE  PROGRAM 

560  PSN  =  0:  REM  PRIGRAM  STEP  NUMBER 

570  PSN  =  PSN  +  1 

580  IF  PSN  =  21  THEN  580:  REM  END 
590  FLAG  =  0 
600  M$  =  A$ (PSN) 

610  IF  M$  =  THEN  610:  REM  END 


620 

N$  - 

=  : 

LEFT$  (M$,2) 

630 

IF 

N$ 

= 

"ST” 

THEN 

560: 

REM  START  AG 

AIN 

640 

IF 

N  $ 

= 

"PR" 

THEN 

GOSUB 

380:  REM  P 

RINTOUT 

650 

IF 

N$ 

= 

"FO" 

THEN 

FLAG 

1 

660 

IF 

N$ 

= 

"BA” 

THEN 

FLAG 

= 

2 

670 

IF 

N  $ 

= 

"TU" 

THEN 

FLAG 

= 

3 

680 

IF 

N$ 

= 

"HO" 

THEN 

FLAG 

= 

4 

690 

IF 

N  $ 

= 

"CL" 

THEN 

FLAG 

= 

5 

700 

IF 

N$ 

= 

"GO" 

THEN 

FLAG 

= 

6 

710 

IF 

N$ 

= 

"RA" 

THEN 

FLAG 

= 

7 

720 

IF 

N$ 

= 

"RE" 

THEN 

FLAG 

= 

8 

730 

IF 

N  $ 

= 

"EN" 

THEN 

FLAG 

= 

9 

740 

IF 

N$ 

= 

"FA" 

THEN 

FLAG 

= 

10 

750 

ON 

FLAG 

GOSUB  780, 

,940, : 

1000,1160,1220 

,1260,1400,1460,1530,1580 
760  GOTO  570 

770  REM  ******************* 

780  REM  FORWARD 

790  M$  =  MID$  (M$ , 4) 

800  IF  ASC  ( M$ )  =  87  THEN  M$  =  MID$  (M 

$.6) 

810  F$  =  "F" 

820  NUM  =  VAL  (M$) 

830  FOR  E  =  1  TO  NUM 
840  IF  UX  <  1  OR  UX  >  DE  THEN  880 

850  IF  AX  <  1  OR  AX  >  BR  THEN  880 

860  Z$ (UX , AX)  =  T$ 
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870  REM  DELETE  THE  '*2'  AT  THE  END  OF  T 
HE  NEXT  TWO  LINES  IF  BETTER  ON 
YOUR  SYSTEM 

880  IF  F$  =  "F"  THEN  UX  =  UX  +  UP:AX  =  A 
X  +  AC  *  2 

890  IF  F$  =  "B"  THEN  UX  =  UX  -  UP : AX  =  A 
X  -  AC  *  2 
900  GOSUB  340 
910  NEXT  E 
920  RETURN 

930  REM  ******************** 

940  REM  BACK 

950  M$  =  MIDI  (M$, 4) 

960  IF  ASC  (M|)  =  75  THEN  M|  =  MIDI  (M 
1,3) 

970  F|  =  "B" 

980  GOTO  820 

990  REM  ******************** 

1000  REM  TURN 

1010  M|  =  MIDI  (M|, 4) 

1020  IF  ASC  (M|)  =  78  THEN  M|  =  MIDI  ( 
Ml, 3) 

1030  NUM  =  VAL  (M|) 

1040  Y  =  INT  ((NUM  +  17.5)  /  45) 

1050  IF  Y  =  0  OR  Y  =  8  THEN  RETURN 
1060  FOR  J  =  1  TO  Y 

1070  IF  UP  =  -  1  AND  AC  =  0  THEN  AC  =  1 

:  GOTO  1130 

1080  IF  UP  =  0  AND  AC  =  1  THEN  UP  =  1:  G 
OTO  1130 

1090  IF  UP  =  1  AND  AC  =  0  THEN  AC  =  -  1 

:  GOTO  1130 

1100  IF  UP  =  0  AND  AC  =  -  1  THEN  UP  = 

-  1:  GOTO  1130 

1120  IF  UP  =  -  1  AND  AC  =  1  OR  UP  =  1  A 

ND  AC  =  -  1  THEN  UP  =  0 

1130  NEXT  J 
1140  RETURN 

1150  REM  ******************* 

1160  REM  HOME 

1170  AX  =  INT  ((BR  +  .5)  /  2) 

1180  UX  =  INT  ((DE  +  .5)  /  2) 

1190  UP  =  -  1 : AC  =  0:  REM  FACES  UP 
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1200  RETURN 

1210  REM  ******************* 

1220  REM  CLEAN 

1230  GOSUB  1870 
1240  RETURN 

1250  REM  ******************* 

1260  REM  GO  X,Y 

1270  P  =  0 
1280  P  =  P  +  1 

1290  IF  MID$  (M$ , P , 1 )  =  THEN  1320 
1300  IF  P  <  LEN  (M$  )  THEN  1280 
1310  RETURN  :  REM  ERROR 
1320  UX  =  VAL  (  MID$  (M$,4,P  -  1)) 

1330  AX  =  VAL  (  RIGHT$  (M$,  LEN  (M$)  -  P 

)) 

1340  GOSUB  340 

1350  IF  UX  <  1  OR  UX  >  DE  THEN  1380 
1360  IF  AC  <  1  OR  AC  >  BR  THEN  1380 
1370  Z$ (UX , AX)  =  R$ 

1380  RETURN 

1390  REM  ******************** 

1400  REM  RANDOM 

1410  AX  =  INT  (  RND  (1)  *  BR) 

1420  UX  =  INT  (  RND  (1)  *  DE) 

1430  Z$ (UX , AX)  =  R$ 

1440  RETURN 

1450  REM  ******************** 

1460  REM  REPEAT 

1470  M$  =  MID$  (M$ , 4) 

1480  IF  ASC  (M$ )  =  69  THEN  M$  =  MID$  ( 
M$ ,  5) 

1490  RECOUNT  =  VAL  (M$) 

1500  MARKER  =  PSN 
1510  RETURN 

1520  REM  ******************** 

1530  REM  END  REPEAT 

1540  RECOUNT  =  RECOUNT  -  1 

1550  IF  RECOUNT  >  0  THEN  PSN  =  MARKER 

1560  RETURN 

1570  REM  ******************** 

1580  REM  FACE 

1590  M$  =  MID$  (M$ , 4) 

1600  ASC  (M$ )  =  69  THEN  M$  =  MID$  (M$,3) 
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1610 

NUM 

= 

VAL  (M$ ) 

1620 

Y  = 

INT  ((NUM  + 

17.5)  /  45)  * 

45 

1630 
AC  =  0 

IF 

Y 

■ 

0  OR  Y  = 

360  THEN  UP  = 

- 

1640 

IF 

Y 

= 

45  THEN  UP  =  -  1:AC  = 

1 

1650 

IF 

Y 

= 

90  THEN 

UP  =  0 : AC  =  1 

1660 

IF 

Y 

= 

135  THEN 

UP  =  1:AC  =  1 

1670 

IF 

Y 

= 

180  THEN 

UP  -  1:AC  =  0 

1680 

IF 

Y 

= 

225  THEN 

UP  =  1:AC  =  - 

1 

1690 

IF 

Y 

= 

270  THEN 

UP  =  0 : AC  =  - 

1 

1700 

IF 

Y 

= 

315  THEN 

UP  =  -  1 : AC  = 

1710 

RETURN 

1720 

REM 

1730 

REM 

INITIALISE 

1740 

HOME 

1770  BR  =  40 

1780  BE  =  24 

1790  BR  =  BR  -  1 

1800  BE  =  BE  -  3 

1810  UP  =  -  1 : AC  =  0:  REM  STARTS  FACING 

UP 

1820  BIM  A$(20) :  REM  FOR  ROBOT  PROGRAM 
1830  BIM  Z$(BE,BR):  REM  BISPL 

AY 

1840  T$  =  "X":  REM  PUT  SYMBOL  FOR  ROBOT' 
S  TRAIL  HERE,  CHANGE  IF  YOU  WIS 
H 

1850  AX  =  0:UX  =  0 

1860  REM  FILL  ARRAY  WITH  SPACES 

1870  FOR  J  =  1  TO  BE 

1880  FOR  K  =  1  TO  BR 

1890  Z$(J,K)  =  "  " 

1900  NEXT  K 

1910  NEXT  J 

1920  RETURN 
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POINT-DUTY  ROBOT  /  Apple  lie  version 

100  REM  POINT-DUTY  ROBOT 

105  REM  APPLE  IIE/IIC  VERSION 

106  REM  EXAMPLES  IN  TEXT  MAY  HAVE  TO  BE 
MODIFIED  TO  PRODUCE  REQUIRED  R 

ESULTS 

110  GOSUB  1730:  REM  INITIALISE 
120  GOTO  490 

130  REM  ********************* 

140  REM 
150  REM 
160  REM 
170  REM 
180  REM 
190  REM 
200  REM 
210  REM 
220  REM 
230  REM 
240  REM 
250  REM 
260  REM 
270  REM 
280  REM 
290  REM 
300  REM 
310  REM 
320  DATA 

330  REM  *********************** 

340  REM  INT  UX,AX 

350  UX  =  INT  (UX  +  . 5) : AX  =  INT  (AX  +  . 
5) 

360  RETURN 

480  REM  *********************** 

490  REM  READ  PROGRAM 
500  COUNT  =  COUNT  +  1 
510  READ  A$ (COUNT ) 

520  IF  A$ (COUNT)  =  THEN  550 
530  IF  COUNT  <  20  THEN  500 
540  REM  *********************** 

550  REM  EXECUTE  PROGRAM 

560  PSN  =  0:  REM  PRIGRAM  STEP  NUMBER 
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570  PSN  =  PSN  +  1 

580  IF  PSN  =  21  THEN  580:  REM 

590  FLAG  =  0 

600  M$  =  A$(PSN) 

610  IF  M$  =  THEN  610:  REM 
620  N$  =  LEFT$  (M$,2) 


630 

AIN 

IF 

N$ 

= 

"ST" 

THEN 

560: 

REM 

650 

IF 

N$ 

= 

"FO" 

THEN 

FLAG 

=  1 

660 

IF 

N$ 

= 

"BA" 

THEN 

FLAG 

=  2 

670 

IF 

N$ 

= 

"TU" 

THEN 

FLAG 

=  3 

680 

IF 

N$ 

= 

"HO" 

THEN 

FLAG 

=  4 

700 

IF 

N  $ 

= 

"GO" 

THEN 

FLAG 

=  5 

710 

IF 

N$ 

= 

"RA" 

THEN 

FLAG 

=  6 

720 

IF 

N$ 

= 

"RE" 

THEN 

FLAG 

=  7 

730 

IF 

N$ 

"EN" 

THEN 

FLAG 

=  8 

740 

IF 

N$ 

= 

"FA" 

THEN 

FLAG 

=  9 

750  ON  FLAG  GOSUB  780,940,1000 
,1400,1460,1530,1580 

760  GOTO  570 


770  REM  ** 
780  REM 
790  M$  =  MI 
800  IF  ASC 
$.6) 

810  F$  =  "F" 
820  NUM  =  V 


* ***************** * 
FORWARD 
MID$  (M$ , 4) 

ASC  (M$ )  =  87  THEN  M$ 


830 

FOR  E  =  1  TO 

NUM 

840 

IF  UX  <  1  OR 

UX  >  DE  THEN 

880 

850 

IF  AX  <  1  OR 

AX  >  BR  THEN 

880 

860 

HPLOT  AX , UX 

880 

IF  F $  =  "F" 

THEN  UX  =  UX  + 

UP 

X  +  . 

AC 

890 

IF  F$  =  "B" 

THEN  UX  =  UX  - 

UP 

X  -  . 

AC 

900 

GOSUB  340 

910 

NEXT  E 

915 

HCOLOR=  FC 

920 

RETURN 

930 

REM  ******************** 

940 

REM 

BACK 

945 

HCOLOR=  BC 

950 

M$  =  MID$  (M$ , 4) 

Apple  He 

960  IF  ASC  (M$)  =  75  THEN  M$  =  MID$  (M 
$ » 3) 

970  F$  =  "B" 

980  GOTO  820 

990  REM  ******************** 

1000  REM  TURN 

1010  M$  =  MID$  (M$ , 4) 

1020  IF  ASC  (M$ )  =  78  THEN  M$  -  MID$  ( 
M$,3) 

1030  NUM  =  VAL  (M$) 

1040  Y  .  INT  ((NUM  +  11.25)  /  22.5) 

1050  IF  Y  =  0  OR  Y  =  16  THEN  RETURN 

1060  FOR  J  =  1  TO  Y 

1065  IF  UP  -  -  2  AND  AC  -  0  OR  UP  =  2  A 

ND  AC  =  2  THEN  AC  -  1 :  GOTO  113 

0 

1070  IF  UP  =  -  2  AND  AC  -  1  THEN  AC  =  2 

:  GOTO  1130 

1075  IF  UP  -  -  2  AND  AC  =  2  OR  UP  -  0  A 

ND  AC  =  -  2  THEN  UP  =  -  Is  GOTO 

1130 

1080  IF  UP  =  -  1  AND  AC  -  2  OR  UP  -  1  A 

ND  AC  =-  -  2  THEN  UP  =  0:  GOTO 

1130 

1085  IF  UP  =  0  AND  AC  -  2  OR  UP  =  2  AND 
AC  =  -  2  THEN  UP  =  1:  GOTO  113 

0 

1090  IF  UP  =  1  AND  AC  =  2  THEN  UP  =  2:  G 
OTO  1130 

1095  IF  UP  -  2  AND  AC  =  1  THEN  AC  =  0:  G 
OTO  1130 

1100  IF  UP  =  2  AND  AC  =  0  THEN  AC  =  -  1 

:  GOTO  1130 


1105 

IF  UP  =  2  . 

AND 

i  AC 

=  - 

1  THEN  AC 

= 

2:  GOTO  1130 
1110  IF  UP  =  - 

1 

AND 

AC  = 

-  2 

THEN 

UP 

-  2; 
1115 

:  GOTO  1130 
IF  UP  =  - 

2 

AND 

AC  = 

-  2 

THEN 

AC 

-  1: 

1120 

:  GOTO  1130 
IF  UP  =  - 

2 

AND 

AC  = 

-  1 

THEN 

AC 

1130 

1140 

NEXT  J 
RETURN 

190 


Apple  lie 


1150  REM  ******************* 

1160  REM  HOME 

1170  AX  =  INT  ((BR  +  .5)  /  2) 

1180  UX  =  INT  ((DE  +  .5)  /  2) 

1190  UP  =  -  2 : AC  =  0:  REM  FACES  UP 

1200  RETURN 

1210  REM  ******************* 

1220  REM  CLEAN 

1230  GOSUB  1870 
1240  RETURN 

1250  REM  ******************* 

1260  REM  GO  X,Y 

1270  P  =  0 
1280  P  =  P  +  1 

1290  IF  MID$  (M$,P,1)  =  THEN  1320 
1300  IF  P  <  LEN  (M$)  THEN  1280 
1310  RETURN  :  REM  ERROR 
1320  UX  =  VAL  (  MID$  (M$,4,P  -  1)) 

1330  AX  =  VAL  (  RIGHT$  (M$,  LEN  (M$)  -  P 

)) 

1340  GOSUB  340 

1350  IF  UX  <  1  OR  UX  >  DE  THEN  1380 
1360  IF  AC  <  1  OR  AC  >  BR  THEN  1380 
1370  HPLOT  AX , UX 
1380  RETURN 

1390  REM  ******************** 

1400  REM  RANDOM 

1410  AX  =  INT  (  RND  (1)  *  BR) 

1420  UX  =  INT  (  RND  (1)  *  DE) 

1430  HPLOT  AX , UX 
1440  RETURN 

1450  REM  ******************** 

1460  REM  REPEAT 

1470  M$  =  MID$  (M$ ,4) 

1480  IF  ASC  (M$ )  =  69  THEN  M$  =  MID$  ( 
M$  ,  5 ) 

1490  RECOUNT  =  VAL  (M$) 

1500  MARKER  =  PSN 
1510  RETURN 

1520  REM  ******************** 

1530  REM  END  REPEAT 

1540  RECOUNT  =  RECOUNT  -  1 

1550  IF  RECOUNT  >  0  THEN  PSN  =  MARKER 


191 


Apple  lie 


1560  RETURN 

1570  REM  ******************** 
1580  REM  FACE 

1590  M$  =  MID$  (M$ , 4) 


1600 

IF 

ASC  (M$ )  =  69  THEN  M$ 

=  MID$  ( 

M$ ,  3  ) 

1610 

NUM 

= 

VAL  (M$) 

1620 

Y  = 

INI 

:  ((NUM  +  11.25)  / 

22.5)  *  22 

*  1630 

IF 

Y 

= 

0  OR  Y  =  360  THEN 

UP  =  -  2: 

AC  =  0 

1635 

IF 

Y 

= 

22.5  THEN  UP  =  - 

2: AC  =  1 

1640 

IF 

Y 

= 

45  THEN  UP  =  -  2: 

AC  =  2 

1645 

IF 

Y 

= 

67.5  THEN  UP  -  - 

1 : AC  =  2 

1650 

IF 

Y 

= 

90  THEN  UP  =  0: AC 

=  2 

1655 

IF 

Y 

= 

112  THEN  UP  =  1 : AC 

=  2 

1660 

IF 

Y 

135  THEN  UP  =  2: AC 

=  2 

1665 

IF 

Y 

= 

157.5  THEN  UP  =  2: 

AC  »  1 

1670 

IF 

Y 

= 

180  THEN  UP  =  2 : AC 

=  0 

1675 

IF 

Y 

= 

202.5  THEN  UP  =  2: 

AC  =  -  1 

1680 

IF 

Y 

= 

225  THEN  UP  •  2: AC 

-  -  2 

1685 

IF 

Y 

= 

247.5  THEN  UP  =  1 : 

AC  =  -  2 

1690 

IF 

Y 

= 

270  THEN  UP  =  0:AC 

=  -  2 

1695 

IF 

Y 

= 

292.5  THEN  UP  =  - 

1 : AC  =  - 

1700 

IF 

Y 

315  THEN  UP  -  -  2 

:  AC  =  -  2 

1705 

IF 

Y 

= 

337.5  THEN  UP  =  - 

2:AC  =  - 

1 

1710  RETURN 

1720  REM  ********************* 

1730  REM  INITIALISE 

1735  HGR  : BC  =  0:FC  =  3 

1740  HOME 

1750  COLOR=  3 

1770  BR  =  279 

1780  DE  =  191 

1790  BR  =  BR  -  1 

1800  DE  =  DE  -  3 

1810  UP  =  -  2 : AC  =  0:  REM  STARTS  FACIN 

G  UP 

1820  DIM  A$ ( 20) :  REM  FOR  ROBOT  PROGRAM 
1830  FOR  XP  =  1  TO  20:  PRINT  :  NEXT  XP 
1920  RETURN 


192 


CONNECT  FOUR  /  Apple  He  version 

10  REM  CONNECT  FOUR 
12  REM  APPLE  IIE/IIC  VERSION 
15  REM  A.  W.  PEARSON 
20  GOSUB  8020 
30  HOME 

40  VTAB  8:  HTAB  14:  PRINT  "CONNECT  FOUR" 
50  GOSUB  5000 
70  VTAB  12 

80  PRINT  "ENTER  YOUR  MOVE  AS  A  NUMBER  BE 
TWEEN" 

90  PRINT  "1  AND  8,  ENTER  0  FOR  A  NEW  GAM 
E  .  .  .  " 

100  FOR  F  =  1  TO  1000:  NEXT  F 
110  DIM  A$ ( 10 , 10) , B( 10 , 2 ) 

120  FLAG  =  0 

140  C$  =  "*":H$  =  "@" :  REM  *=COMPUTER,  @ 
=PLAYER 

150  FOR  F  =  1  TO  8 
160  B ( F , 1 )  =  6 
170  NEXT  F 
180  FOR  F  =  1  TO  6 
190  FOR  G  =  1  TO  8 
200  A$(F,G)  =  "." 

210  NEXT  G 
220  NEXT  F 

230  REM  ************************* 

240  REM  ACCEPT  HUMAN  MOVE 
250  GOSUB  430 

260  PRINT  :  PRINT  "YOUR  MOVE..." 

270  INPUT  A 

280  IF  A  =  0  THEN  RUN 

290  IF  A  <  1  OR  A  >  8  THEN  270 

300  L  =  0 

310  IF  A$(L  +  1 , A )  <  >  "."  OR  L  =  6  THE 

N  340 

320  L  =  L  +  1 

330  GOTO  310 

340  IF  L  =  0  THEN  270 

350  A$ (L , A )  =  H$ 

360  B ( A , 1 )  =  B( A , 1 )  -  1 
370  GOSUB  430 
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380  GOSUB  560 
390  GOSUB  430 
400  GOTO  260 

410  REM  ************************ 

420  REM  PRINT  BOARD 
430  HOME 

435  P  =  200 : D  =  50:  GOSUB  8000 
440  FOR  F  =  1  TO  6 
450  FOR  G  =  1  TO  8 
460  PRINT  A$ (F , G) ; 

470  NEXT  G 

480  PRINT 

490  NEXT  F 

500  PRINT  "12345678” 

510  PRINT 

520  IF  FLAG  =  1  THEN  PRINT  "I 
HAVE  WON!!":  GOSUB  5200:  END 

530  RETURN 

540  REM  ************************* 

550  REM  COMPUTER  MOVES 
560  PRINT  "MY  MOVE. . 

570  MV  =  0 
580  FOR  F  =  1  TO  8 
590  B (F , 2 )  =  0 
600  NEXT  F 

610  FOR  F  =  1  TO  8 
620  FOR  X  =  -  1  TO  1 

630  FOR  Y  =  -  1  TO  1 

640  IF  B(F,  I*)  =  0  THEN  680 
650  IF  A$(B(F, 1 )  +  X , F  +  Y)  =  ""  OR  A$(B 
(F , 1 )  +  X , F  +  Y)  =  "."  THEN  680 
660  IF  A$(B(F,1)  +  X , F  +  Y)  =  H$  THEN  G 
OSUB  810 

670  IF  A$(B(F,1)  +  X , F  +  Y)  =  C$  THEN  G 
OSUB  910 
680  NEXT  Y 

690  NEXT  X 

700  NEXT  F 

710  PC  =  0 
720  FOR  F  =  1  TO  8 

730  IF  B (F , 2)  >  PC  THEN  PC  =  B(F,2):N  = 

F 
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740  NEXT  F 

750  A$(B(N,1),N)  =  C$ 

760  B(N,1)  =  B(N,1)  -  1 
770  N  =  0 
780  PC  =  0 
790  RETURN 

800  REM  ************************* 

810  MV  =  2 
820  Ml  =  MV 

830  IF  A$(B(F,1)  +  (X  *  2),F  +  ( Y  *  2)) 

=  H$  THEN  MV  =  MV  +  10 
840  IF  A$(B(F,1)  -  X , F  -  Y)  =  H$  THEN  MV 
=  MV  +  20 

850  IF  MV  <  >  Ml  +  10  THEN  870 

860  IF  A$ (B(F , 1 )  +  (X  *  3),F  +  (Y  *  3)) 

=  H$  THEN  MV  =  MV  +  1000 
870  B(F,2)  =  B( F , 2 )  +  MV 
880  Ml  =  0 
890  RETURN 

900  REM  ************************** 

910  MV  =  2 
920  Ml  =  MV 

930  IF  A$(B(F, 1)  +  (X  *  2),F  +  (Y  *  2)) 

=  C$  THEN  MV  =  MV  +  9 
940  IF  A$(B(F, 1)  -  X , F  -  Y)  =  C$  THEN  MV 
=  MV  +  20 

950  IF  MV  <  >  Ml  +  9  THEN  970 

960  IF  A$ (B(F, 1 )  +  (X  *  3),F  +  (Y  *  3)) 

=  C$  THEN  MV  =  MV  +  2000:FLAG  = 


1 


970  i 

B(F , 2 )  =  B(F , 2)  + 

MV 

980 

RETURN 

5000 

P  =  10 : D  =  25 

5010 

GOSUB  8000 

5020 

P  =  P  +  10 

5030 

IF  P  <  250  THEN 

GOTO  5010 

5040 

GOSUB  8000 

5050 

P  =  P  -  10 

5060 

IF  P  >  10  THEN 

GOTO  5040 

5070 

RETURN 

5200 

P  =  200 :D  =  25 

5210 

FOR  TD  =  1  TO  5 

5220 

GOSUB  8000 
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5230  NEXT  TD 
5240  RETURN 
5250  NEXT  TL 
5260  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, P:  POKE  11, D:  CALL  768:  RET 
URN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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10  REM  QUEVEDO  CHESS  MACHINE 
15  REM  APPLE  IIE/IIC  VERSION 
20  GOSUB  1510:  REM  INITIALISE 
30  GOTO  60 

40  GOSUB  1320:  REM  PRINT  BOARD 
50  GOSUB  110:  REM  COMPUTER  MOVES 
60  GOSUB  1320 

70  GOSUB  1120:  REM  ACCEPT  HUMAN  MOVE 
80  GOTO  40 
90  END 

100  REM  ************** 

110  REM  COMPUTER  MOVES 
120  IF  QUIT  =  1  THEN  1080 
130  W1  =  WK 
140  REM  ******** 

150  REM  MOVE  ONE 

160  MOVE  =  1 

170  KM  =  INT  (BK  /  10) 


180 

RM  = 

INT 

(R  / 

10) 

190 

IF 

ABS 

(KM  - 

RM) 

> 

3  THEN 

330 

200 

A(R) 

a  46 

210 

X  = 

INT 

(BK  / 

10) 

:  Y  . 

=  INT 

(R  / 

10) 

220 

IF 

X  >  Y 

THEN 

270 

230 

IF 

A(R  - 

10)  < 

> 

46 

THEN 

270 

240 

IF 

A(R  - 

19)  = 

■  BK 

OR 

A(R  - 

21)  =  BK 

OR  A  ( 

:r  - 

20)  = 

BK  THEN 

270 

250 

IF 

A(R  - 

11)  = 

BK 

OR 

A(R  - 

9)  = 

BK  T 

HEN  270 

260  R  =  R  -  10:  GOTO  300 
270  IF  A(R  +  10)  <  >  46  THEN  A(R)  =  R: 

GOTO  330 

280  IF  A ( R  +  19)  «  BK  OR  A(R  +  21)  =  BK 
OR  A ( R  +  20)  =  BK  THEN  A(R)  =  R 
:  GOTO  330 
290  R  =  R  +  10 
300  A(R)  =  ASC  ("R") 

310  RETURN 

320  REM  ******** 

330  REM  MOVE  TWO 

340  MOVE  =  2 

350  KM  =  BK  -  10  *  KM 
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360  RM  =  R  -  10  *  RM 

370  IF  ABS  (KM  -  RM)  <  2  THEN  480 

380  A(R)  =  46 

390  IF  R  >  11  THEN  IF  ( A(R  -  12)  =  BK  0 

R  A(R  -  2)  =  BK  OR  A(R  +  8)  =  B 

K)  THEN  A(R)  =  R:  GOTO  480 
400  IF  R  >  11  THEN  IF  ( A ( R  -  1 )  =  BK  OR 

A(R  -  11)  =  BK  OR  A(R  +  9)  =  B 

K)  THEN  A(R)  =  R:  GOTO  480 
410  Y  =  BK  -  10  *  INT  (BK  /  10) 

420  Z  =  R  -  10  *  INT  (R  /  10) 

430  IF  (Z  =  1  OR  Y  >  Z)  AND  A(R  +  1)  =  4 

6  THEN  R  =  R  +  1:  GOTO  450 
440  R  =  R  -  1 
450  A (R )  =  ASC  ("R") 

460  RETURN 

470  REM  ********** 

480  REM  MOVE  THREE 
490  MOVE  =  3 

500  WM  =  WK-  10  *  INT  (WK  /  10) 

510  BM  =  BK  -  10  *  INT  (BK  /  10) 

520  IF  ABS  (WM  -  BM)  <  3  THEN  600 
530  IF  A(WK  -  1)  <  >  46  OR  A(WK  -  18)  = 
BK  OR  A(WK  -  2)  =  BK  OR  A(WK  + 

8)  =  BK  THEN  610 


540 

IF  A(WK  -  11)  =  BK 

OR  A(WK 

+  9)  =  : 

OR  A( WK  - 

22)  =  BK  THEN 

610 

550 

A(  WK  ) 

=  46 

560 

WK  = 

WK  -  1 

570 

A(WK) 

=  ASC  ("K") 

580 

RETURN 

590 

REM 

************************ 

600 

REM 

MOVES  FOUR,  FIVE  AND 

SIX 

610 

Z  = 

ABS  (  INT  (BK  / 

10)  - 

INT  (WK 

10)) 

620 

IF  Z 

=  0  THEN  950 

630 

IF  2 

*  INT  (Z  /  2) 

=  Z  THEN  790 

640 

REM 

********* 

650 

REM 

MOVE  FOUR 

660 

MOVE 

=  4 

670 

A(R) 

=  46 

680 

IF  A(R  -  10)  <  >  46  THEN 

720 
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690  IF  A(R  -  9)  =  BK  OR  A(R  -  11)  =  BK  T 
HEN  720 

700  IF  A (R  -  19)  =  BK  OR  A(R  -  21)  =  BK 
OR  A(R  -  20)  =  BK  THEN  720 
710  R  =  R  -  10:  GOTO  760 
720  IF  A(R  +  10)  <  >  46  THEN  A(R)  =  R: 

GOTO  790 

730  IF  A (R  +  19)  =  BK  OR  A(R  +  21)  =  BK 
OR  A(R  +  20)  =  BK  THEN  A(R)  =  ASC 
("R"):  GOTO  790 

740  IF  A (R  +  11)  =  BK  OR  A(R  +  9)  =  BK  T 
HEN  A(R)  =  ASC  ("R"):  GOTO  790 


750 

R  = 

R  + 

10 

760 

A(R ) 

= 

ASC 

( "R") 

770 

RETURN 

780 

REM 

** 

I**** 

790 

REM 

MOVE  FIVE 

800 

MOVE 

=  5 

810 

J  = 

I  NT 

(BK 

/  10) 

820 

K  = 

BK  - 

10 

*  J 

830 

L  = 

I  NT 

(WK 

/  10) 

840 

M  = 

WK  - 

10 

*  L 

850 

Z  = 

10: 

IF  J 

<  L  THEN 

860 

X  = 

1:  IF  K 

<  M  THEN  : 

870 

A( WK )  = 

46 

880 

W1  = 

WK 

890 

WK  = 

WK 

+  Z 

+  X 

900 

G  = 

ABS 

(WK 

-  BK) 

910 

IF 

G  = 

1  OR 

G  =  9  OR 

1  THEN  WK  =  W1 : A ( WK )  =  75:  GOTO 
950 

920  A(WK)  =  ASC  ("K") 

930  RETURN 

940  REM  ^={c=5==5==s=sic5ii^ 

950  REM  MOVE  SIX 
960  MOVE  =  6 
970  A ( R )  =  46 

980  IF  R  >  11  THEN  IF  A(R  -  12)  =  BK  OR 
A(R  -  2)  =  BK  OR  A(R  +  8)  =  BK 

OR  A(R  -  1)  <  >46  THEN  1070 

990  IF  R  >  11  THEN  IF  (A(R  -  1 )  =  BK  OR 
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A(R  -  11)  =  BK  OR  A(R  +  9)  =  B 
K)  THEN  1070 

1000  Y  =  BK  -  10  *  INT  (BK  /  10) 

1010  Z  =  R  -  10  *  INT  (R  /  10) 

1020  IF  (Z  =  1  OR  Y  >  Z)  AND  A(R  +  1)  = 
46  THEN  R  =  R  +  1:  GOTO  1040 
1030  R  =  R  -  1 
1040  A(R)  =  ASC  ("R") 

1050  RETURN 
1060  REM  ****** 

1070  GOSUB  1320 
1080  PRINT  :  PRINT 
1085  FLASH 

1090  PRINT  "I  CONCEDE  TO  THE  MASTER" 

1095  NORMAL 

1100  GOSUB  5000:  END 

1110  REM  ***************** 

1120  REM  ACCEPT  HUMAN  MOVE 
1130  REM  ENTER  ’Q'  TO  QUIT 
1140  MOVE  =  0 

1145  P  =  100 : D  =  100:  GOSUB  8000 

1150  PRINT  ">>  MOVE  TO  (LETTER,  NO.)  " ; 

1160  INPUT  G$ 

1170  IF  G$  =  "Q”  THEN  1280 

1180  IF  LEN  ( G$ )  <  >  2  THEN  1160 

1190  Z  =  ASC  (G$) 

1200  IF  Z  <  65  OR  Z  >  72  THEN  1160 
1210  X  =  VAL  (  RIGHT$  (G$,l)) 

1220  IF  X  <  1  OR  X  >  8  THEN  1160 

1230  A(BK)  =  46 

1240  BK  =  10  *  (Z  -  64)  +  X 

1250  IF  A(BK)  =  ASC  ("R")  THEN  QUIT  =  1 

1260  A( BK)  =  ASC  ("$") 

1270  RETURN 

1280  PRINT  :  PRINT 

1290  INVERSE  :  PRINT  "THANKS  FOR  THE  GAM 
E" 

1295  P  =  75 : D  =  150:  GOSUB  8000 
1300  END 

1310  REM  *********** 

1320  REM  PRINT  BOARD 

1325  P  =  200 : D  =  50:  GOSUB  8000 

1330  HOME 
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1340  PRINT  :  PRINT 

1350  IF  MOVE  >  0  THEN  PRINT  "I  USED  MOV 
E  " ; MOVE 

1360  IF  MOVE  =  0  THEN  PRINT 

1370  PRINT  :  PRINT 

1380  PRINT  TAB(  10) "ABCDEFGH" 

1390  FOR  J  =  8  TO  1  STEP  -  1 
1400  PRINT  TAB(  8)J;" 

1410  FOR  K  =  10  TO  8Q  STEP  10 
1420  PRINT  CHR$  (A(J  +  K)); 

1430  NEXT  K 
1440  PRINT  "  " ;J 
1450  NEXT  J 
1460  PRINT 

1470  PRINT  TAB(  10) "ABCDEFGH" 

1480  PRINT  :  PRINT 
1490  RETURN 

1500  REM  ************** 

1510  REM  INITIALISATION 
1520  HOME 

1530  GOSUB  8020:  REM  INITIALISE  SOUND 
1540  MOVE  =  0 
1550  QUIT  =  0 
1560  DIM  A( 130) 

1570  FOR  J  =  10  TO  80  STEP  10 

1580  FOR  K  =  1  TO  8 

1590  A( J  +  K)  =  46:  REM  ASCII  OF 

1600  NEXT  K 

1610  NEXT  J 

1620  REM  **  PLACE  PIECES  ** 

1630  REM  BLACK  KING  -  HUMAN 

1640  BK  =  INT  (  RND  (1)  *  3)  +  1 

1650  BK  =  10  *  BK  +  BK  +  INT  (  RND  (1)  * 

5) 

1660  A( BK )  =  ASC  ("$") 

1670  REM  WHITE  KING  -  COMPUTER 
1680  WK  =  INT  (  RND  (1)  *  4)  +  4 

1690  WK  =  10  *  WK  +  WK  +  INT  (  RND  (1)  * 

2) 

1700  IF  WK  =  BK  THEN  1680 
1710  A ( WK )  =  ASC  ("K") 

1720  REM  WHITE  ROOK  -  COMPUTER 
1730  R  =  INT  (  RND  (1)  *  4.)  +  4 
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1740  R  =  10  *  R  +  R  +  INT  (  RND  (1)  *  2) 
1750  IF  R  =  WK  OR  R  =  BK  THEN  1730 
1760  IF  ABS  (R  -  BK)  <  12  THEN  1730 
1770  A(R )  =  ASC  ("R") 

1780  RETURN 

5000  P  =  1 75 : D  =  50 

5010  FOR  TL  =  1  TO  5 

5020  GOSUB  8000 

5030  FOR  TD  =  1  TO  50:  NEXT  TD 

5040  NEXT  TL 

5050  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, P:  POKE  11, D:  CALL  768:  RET 
URN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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WASHINGTON  D.C.  /  Apple  He  version 

10  REM  WASHINGTON  D.C. 

15  REM  APPLE  IIE/IIC  VERSION 
20  GOSUB  1160:  REM  INITIALISE 
30  REM  sis*****!}:************** 

40  REM  MAJOR  CYCLE 

50  P  =  INT  (P  +  (P  *  273  /  ML)) 


60 

GOSUB 

160:  REM  PRINTOUT 

70 

GOSUB 

510:  REM  CALCULATE 

80 

REM  NOW  CHECK  END  GAME 

90 

GOSUB 

710:  REM  STANDARD  OF  LIVING 

100 

GOSUB 

780:  REM  INFLATION  RATE 

110 

GOSUB 

840:  REM  UNEMPLOYMENT 

120 

IF  GAME  =  1  THEN  HOME  :  GOTO 

890 

130 

GOTO 

50 

140 

REM 

150 

REM 

PRINTOUT 

160 

HOME 

: PZ  =  50 : DZ  =  150:  GOSUB 

8000 

170 

PRINT 

"PRESIDENT  " ; A$ ; " : " 

180 

PRINT 

"YOUR  ADMINISTRATION  HAS  BEEN 

IN 

POWER  FOR  ":Y  +  Z  / 

4;"  YEARS" 

190 

PRINT 

200 

PRINT 

" - STATE  OF  THE  NATION - 

210 

PRINT 

„ 

220 

PRINT 

"POPULATION  " ;  P 

230 

PRINT 

"NO.  UNEMPLOYED  INT 

CU) ; " 

INT  (100 

*  U  /  P) ; "%" 

240 

PRINT 

"CURRENT  WAGES  $  ";W0;" 

INFLA 

TION 

"  ;  INT 

(IP) ; "%" 

250 

PRINT 

"GOVT.  EXPENDITURE  LAST 

QTR .  $ 

M  "  ;  GE 

260 

PRINT 

"UNEMPLOYMENT  COST  $M  " 

;  INT  ( 

10  * 

GU)  / 

10 

270 

PRINT 

"INCOME  FROM  TAXES  $M  " 

;  INT  ( 

GI  *  10)  /  10 

280  PRINT  "BUDGET  SURPLUS (+) /DEFICIT(-) 
$M  INT  (BD  *  10)  /  10 
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290  PRINT  "GROSS  DOMESTIC  PRODUCT  $M 
INT  (GDP  *  10)  /  10 

300  IF  Y  +  Z  /  4  >  .5  THEN  PRINT  "CHANG 
E  IN  LIVING  STANDARD  ";  INT  ((2 

*  ( (RGDP  /  AGDP)  *  100)  -  100)  /  3); 

310  PRINT  " - 

320  PRINT  "PUBLIC  INVESTMENT  ";Y;"  Q  ";Z 
$M  ";  INT  (IV  *  10)  /  10 
330  PRINT  " - 

340  PRINT  "OK,  PRESIDENT  ";A$ 

350  INPUT  "ENTER  GOVERNMENT  SPENDING  $M 
" ;  GE 

360  INPUT  "ENTER  COST  OF  WAGES  $M  ";WN 
370  PRINT  "IS  YOUR  ADMINISTRATION  IN  FAV 
OR  OF  " 

380  PRINT  :  PRINT  "IMMIGRATION  THIS  QUAR 
TER  (Y/N)?" 

390  GET  X$ 

400  IF  X$  <  >  "Y"  AND  X$  <  >  "N"  THEN 

390 

410  PRINT  TAB(  20) "OK . . . " ; X$ 

420  FOR  H  =  1  TO  1000:  NEXT  H 
430  IF  X$  <  >  "Y"  THEN  RETURN 

440  PRINT  "HOW  MANY  IMMIGRANTS  WILL  YOU 
ALLOW  INTO  THE  US?" 

450  INPUT  M 

460  IF  M  <  0  THEN  450 

470  P  =  P  +  M 

480  RETURN 

490  REM  s}:************************:!: 

500  REM  CALCULATIONS 

510  CN  =  CN  +  (CN  *  IP  /  100) 

520  U  =  P  *  (GE  +  IV)  /  (CN  *  10)  +  P  *  ( 
IP  /  1000) 

530  GU  =  U  *  WN  /ML:  REM  UNEMPLOYMENT  C 
OST 

540  GI  =  (((P  -  U)  *  WN  *  .4)  /  ML):  REM 
INCOME  FROM  TAXES 

550  BD  =  BD  +  GI  -  GU  -  GE:  REM  BUDGET  D 
EFICIT 
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560  AGDP  =  AGDP  *  (1  +  (IP  /  100)) 

570  GDP  =  GE  +  IV  +  ( ( P  -  U)  *  WN  /  ML) 
580  RGDP  =  GDP  *  440  /  AGDP 
590  IP  =  ((GE  +  IV)  /  CN  *  .1  +  (WN  /  WO) 
/  100)  *  100 

600  IV  =  (CN  *  67)  /  (IP  *  IP) 

610  WO  =  WN 

620  Z  =  Z  +  1 :  IF  Z  >  4  THEN  Z  =  1:Y  =  + 

1 

630  RETURN 

640  REM  si?*****************:!!**:!!*** 

650  REM  CHECK  BUDGET  DEFICIT 
660  IF  BD  >  -  1000  THEN  RETURN 

670  GAME  =  1 
680  FLAG  =  1 
690  RETURN 

700  REM  ************************* 

710  REM  CHECK  STANDARD  OF  LIVING 

720  IF  Y  <  .75  THEN  RETURN 

730  IF  INT  ((2  *  ((RGDP  /  AGDP)  *  100) 

-  100)  /  3)  >  -  15  THEN  RETURN 

740  GAME  =  1 
750  FLAG  =  2 
760  RETURN 

770  REM  ************************** 

780  REM  CHECK  INFLATION  RATE 
790  IF  IP  <  15  THEN  RETURN 
800  GAME  =  1 
810  FLAG  =  3 
820  RETURN 

830  REM  ************************** 

840  REM  CHECK  UNEMPLOYMENT 
850  IF  INT  (U  *  100  /  P)  <  15  THEN  RET 
URN 

860  GAME  =  1 
870  FLAG  =  4 
880  RETURN 

890  REM  ************************** 

900  REM  END  OF  THE  GAME 
905  PZ  =  200 :DZ  =  100:  GOSUB  8000 
907  PZ  =  100: DZ  =  75:  GOSUB  8000 
910  PRINT  "PRESIDENT  " ;A$;'\  YOUR" 
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920  PRINT  "ADMINISTRATION’S  POOR  ECONOMI 
C" 

930  PRINT  "PERFORMANCE  HAS  LED  TO  AN  UNA 
CCEPTABLE" 

940  IF  FLAG  =  1  THEN  PRINT  "BUDGET  DEFI 
CIT" 

950  IF  FLAG  =  2  THEN  PRINT  "DROP  IN  THE 
STANDARD  OF  LIVING" 

960  IF  FLAG  =  3  THEN  PRINT  "RISE  IN  THE 
INFLATION  RATE" 

970  IF  FLAG  =  4  THEN  PRINT  "RISE  IN  UNE 
MPLOYMENT" 

980  PRINT  "  AMONG  OTHER  THING 

S  .  .  .  " 

990  PRINT  " - 

1000  PRINT  "THE  LACK  OF  CONFIDENCE  IN  YO 
UR" 

1010  PRINT  "ADMINISTRATION  IS  SO  BAD  THE 
RE  ARE" 

1020  PRINT  "CALLS  FOR  YOU  TO  RESIGN... YO 
U  STEP" 

1030  PRINT  "ASIDE  TO  ALLOW  THE  VICE-PRES 
IDENT  TO" 

1040  PRINT  "  OCCUPY  THE  OVAL  OFFICE 

1050  FOR  H  =  1  TO  1000:  NEXT  H 

1060  PRINT  " - 

1070  PRINT  "YOU  WERE  PRESIDENT  FOR  ";Y  + 
(Z  *  .25);"  YEARS" 

1080  PRINT  "DURING  YOUR  TERM  OF  OFFICE, 
THE" 

1090  PRINT  "POPULATION  ROSE  BY  ";P  -  3  * 
ML 

1100  PRINT  "THE  UNEMPLOYMENT  RATE  BECAME 
";  INT  (U  *  1000  /  P)  /  10;"%" 

1110  PRINT  "AND  THE  INFLATION  RATE  BECAM 
E  ";  INT  (10  *  IP)  /  10;"%" 

1120  PRINT  "STANDARD  OF  LIVING  CHANGED  B 
Y  ";  INT  ((2  *  ( (RGDP  /  AGDP)  * 

100)  -  100)  /  3);"%" 
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1130  PRINT  "AND  THE  BUDGET  SURPLUS/DEFIC 
IT  WAS  $M" ;  INT  (10  * 

BD)  /  10 
1140  END 

1150  REM  ***#**#********=}:={!=}:***={!={!:{!=!! 

1160  REM  INITIALIZATION 
1170  HOME 
1180  GOSUB  8020 
1190  ML  =  1000  *  1000 
1200  P  =  3  *  ML 

1210  U  =  P  /  10:  REM  UNEMPLOYMENT 
1220  IV  =  236:  REM  INVESTMENT 
1230  GE  =  118:  REM  GOVERNMENT  EXPENDITUR 
E 

1240  GU  =  0:  REM  COST  OF  UNEMPLOYMENT 
1250  GI  =  0:  REM  INCOME  FROM  TAXES 
1260  WN  =  100:  REM  NEW  WAGES 
1270  WO  =  100:  REM  OLD  WAGES 
1280  IP  =  5:  REM  INFLATION  PERCENT 
1290  GDP  =  440:  REM  GROSS  DOMESTIC  PRODU 
CT 

1300  AGDP  =  440:  REM  BASE  YEAR  GDP 
1310  RGDP  =  440:  REM  REAL  GDP 
1320  CN  =  354:  REM  ECONOMIC  CONSTANT  (US 
ED  THROUGHOUT  SIMULATION) 

1330  Z  =  1 : GAME  =  0 : FLAG  =  0 

1340  Y  =  0:  REM  YEAR 

1350  PRINT  "ENTER  YOUR  LAST  NAME" 

1360  INPUT  A$ 

1370  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, PZ:  POKE  11, DZ:  CALL  768:  R 
ETURN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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10  REM  STOCKMARKET 

15  REM  APPLE  IIE/IIC. VERSION 

20  HOME 

30  GOSUB  8020 

40  DIM  S (5) ,N(5) ,P(5) ,D(5) 

50  S ( 1 )  =  1 . 49 : S ( 2 )  =  1 . 99 : S ( 3  )  =  2 . 49 : S ( 
4)  =  2 . 99 : S ( 5 )  =  3.49 
60  N ( 1 )  =  2000 : N( 2 )  =  1500:N(3)  =  1200:N( 
4)  =  1000 : N ( 5 )  =  800 

70  BB  =  265 : TV  =  15000:QQ  =  15000:DAY  =  1 
80  PRINT  :  PRINT  "ENTER  YOUR  GOAL  FOR  TH 
IS  SIMULATION," 

90  PRTNT  TAB(  8)"$16,000  TO  $100,000" 
100  INPUT  GOAL 

110  IF  GOAL  <  16000  THEN  PRINT  "TOO  LOW 
!":  GOSUB  5000:  GOTO  80 
120  IF  GOAL  >  100  *  1000  THEN  PRINT  "TO 
0  HIGH!":  GOSUB  5000:  GOTO  80 
130  REM  ******************* 

140  REM  MAJOR  LOOP 
150  FOR  C  -  1  TO  5 

160  REM  ADJUST  THE  55  IN  THE  NEXT  LINE 
TO  MODIFY  THE  GAME;  80  VERY  HAR 
D,  30  VERY  EASY 

170  D(C )  =  INT'  (  RND  (1)  *  55)  +  1 
180  P(C)  =  INT  (  RND  (1)  *  (100  -  D(C) ) ) 
+  1 

190  NEXT  C 
200  GOSUB  23Q 
210  GOTO  460 

220  REM  ******************** 

230  REM  PRINT  OUT 
240  HOME 

250  PRINT  " - - - 


255  GOSUB  5200 

260  PRINT  "DAY  "DAY"  YOUR  GOAL  IS 

$ "GOAL 

270  PRINT  " - 


280  PRINT  "COMPANY  NUMBER:" 
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290  PRINT  TAB(  2)1;  TAB(  9)2;  TAB(  16)3 
;  TAB (  25)4;  TAB(  32)5 
295  PRINT 

300  PRINT  "CHANCE  OF  INCREASE  (%):" 

310  PRINT  TAB(  2)P(1);  TAB(  9 ) P ( 2 ) ;  TAB 
(  16 )P( 3) ;  TAB (  25)P(4);  TAB(  3 
2)P(5) 

315  PRINT 

320  PRINT  "CHANCE  OF  DECREASE  (%):" 

330  PRINT  TAB(  2)D(1);  TAB(  9 ) D ( 2 ) ;  TAB 
(  16 ) D( 3 ) ;  TAB(  25 ) D ( 4 ) ;  TAB(  3 
2)D(5) 

335  PRINT 

340  PRINT  "CURRENT  VALUE  PER  SHARE:" 

350  PRINT  "$";  INT  (S(l)  *  100)  /  100;  T 
AB (  8 ) " $ " ;  INT  (S(2)  *  100)  /  1 
00; 


360 

PRINT 

TAB( 

15)"$";  INT  ( S ( 3)  * 

100) 

/  100;  TAB( 

23)" 

$";  INT  ( S ( 4 )  * 

100)  / 

100; 

370 

PRINT 

TAB( 

30)"$";  INT  (  S  (  5  )  * 

100) 

/  100 

375 

PRINT 

380 

PRINT 

"NO. 

OF  SHARES  HELD:" 

390 

PRINT 

TAB( 

2)N( 1)  ;  TAB(  9)N(2): 

;  TAB 

(  16 )N( 3) ;  TAB(  24)N(4);  TAB(  3 
1 )N( 5 ) 

395  PRINT 

400  PRINT  "BANK  $";  INT  (BB)"  TOTAL  WORT 
H  $";  INT  (TV) 

410  PRINT  " - - - 

420  IF  TV  >  GOAL  THEN  PRINT  "YOU'VE  HIT 
YOUR  FINACAIL  GOAL!":  GOSUB  55 
00:  END 
430  RETURN 

440  REM  Jis**********^************** 

450  REM  **  SELL  ** 

460  PRINT  "DO  YOU  WANT  TO  SELL  ANY  SHARE 
S  (Y/N)?" 

470  GET  A$ 

480  IF  A$  <  >  "Y"  AND  A$  <  >.  "N"  THEN 

470 


209 


Apple  lie 

490 

IF  A$  =  "N"  THEN  690 

500 

GOSUB  230 

510 

PRINT  "WHICH  ONES  TO  SELL?  " 

; 

520 

GET  A$ 

530 

IF  A$  <  "1"  OR  A$  >  "5"  THEN 

520 

540 

C  =  VAL  ( A$) 

550 

PRINT  "  OK  " ; C 

560 

PRINT  "HOW  MANY  OF  ";C;"  TO 

SELL  "; 

570 

INPUT  N 

580 

IF  N  >  N(C)  THEN  PRINT  "YOU 

DON'T  H 

AVE  THAT  MANY!":  GOSUB  5000:  GOTO 
570 

590  REM  ************************ 

600  REM  ADJUST  FIGURES  AFTER  SALE 

610  BB  =  BB  +  S(C)  *  N:  REM  ADD  VALUE  TO 

BANK 

620  N(C)  =  N ( C)  -  N:  REM  SUBTRACT  NO.  SO 
LD 

630  TV  =  0:  REM  SET  TOTAL  WORTH  TO  ZERO 
640  REM  NOW  DETERMINE  CURRENT  WORTH 
650  FOR  C  =  1  TO  5 
660  TV  =  TV  +  N(C)  *  S(C) 

670  NEXT  C 

680  TV  =  TV  +  BB:  REM  ADD  IN  BANK  BALANC 
E 

690  GOSUB  230 

700  REM  ************************* 

710  REM  **  BUY  ** 

720  PRINT  "DO  YOU  WANT  TO  BUY  ANY  SHARES 
(Y/N )?" 

730  GET  A$ 

740  IF  A$  <  >  "Y"  AND  A$  <  >  "N”  THEN 

730 


750 

IF  A$ 

=  "N" 

THEN  890 

760 

GOSUB 

230 

770 

PRINT 

"WHICH  COMPANY 

TO 

BUY? 

"  ; 

780 

GET  A$ 

790 

IF  A$ 

<  "1" 

OR  A$  >  " 

5" 

THEN 

780 

800 

C  =  VAL  (A$) 

810 

PRINT 

" 

OK  "  ;  C 

820 

PRINT 

"HOW 

MANY  OF  "; 

C; 

"  TO 

BUY  " 

830 

INPUT 

N 

840 

IF  N  * 

S(C) 

>  BB  THEN 

PRINT 

"YOU 
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N'T  HAVE  ENOUGH  MONEY!”:  GOSUB 
5000:  GOTO  830 

850  REM  ************************** 

860  REM  ADJUST  FIGURES  AFTER  BUY 

870  BB  =  BB  -  S(C)  *  N 

880  N(C)  =  N(C)  +  N 

890  TV  =  0 

900  FOR  C  =  1  TO  5 

910  TV  =  TV  +  N(C)  *  S(C) 

920  NEXT  C 
930  TV  =  TV  +  BB 
940  GOSUB  230 

950  REM  ************************** 

960  REM  MODIFY  ALL  INDICATORS 

970  TV  =  0 

980  FOR  C  =  1  TO  5 

990  K  =  INT  (  RND  (1)  *  100)  +  1 

1000  IF  K  <  P(C)  THEN  S(C)  =  S(C)  *  (1  + 

(P(C)  /  1000)) 

1010  K  =  INT  (  RND  (1)  *  100)  +  1 
1020  IF  K  <  D(C)  THEN  S(C)  =  S(C)  /  (1  + 
( D ( C )  /  1000)) 

1030  TV  =  TV  +  (S(C)  *  N(C) ) 

1040  NEXT  C 

1050  TV  =  TV  +  BB 

1060  QQ  =  QQ  *  1.005 

1070  W  =  (TV  *  100  /  QQ)  -  100 

1080  IF  W  =  0  THEN  W  =  .1 

1090  W  =  W  +  6 

1100  IF  W  <  1  THEN  W  =  1 

1110  IF  W  >  15  THEN  W  =  15 

1120  RESTORE 

1130  FOR  T  =  1  TO  W 

1140  READ  A$ 

1150  NEXT  T 
1160  PRINT 

1170  REM  ********************* 

1180  REM  GIVE  RATING,  START  NEW  ROUND 
1190  PRINT  "YOUR  RATING  AFTER  THAT  ROUND 
OF” 

1200  PRINT  "TRADING  IS  * ” ; A$ ; " f  " 

1210  PRINT  :  PRINT  TAB(  5)"<PRESS  SPACE 
BAR  TO  CONTINUED 
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1220  GET  A$ :  IF  A$  <  >  "  "  THEN  1220:  R 

EM  NOTE  SPACE  BETWEEN  QUOTE  MA 
RKS 


1230 

DAY  = 

DAY  +  1 

1240 

GOTO 

150 

1250 

DATA 

"HOPELESS" , "VERY ,  VERY,  POOR" 

1260 

DATA 

"TERRIBLE" , "AWFUL" , "BAD" 

1270 

DATA 

"VERY  ORDINARY", "AVERAGE" 

1280 

DATA 

"REASONABLE", "A  LITTLE  ABOVE 

AVERAGE” 

1290 

DATA 

"FAIRLY  GOOD", "GOOD", "VERY  G 

OOD" 

1300 

DATA 

"GREAT" , "EXCELLENT" , "SUPERLAT 

IVE” 

5000 

P  =  50 

: D  =  100 

5010 

GOSUB 

8000 

5020  RETURN 

5200  P  =  1 50 : D  =  200 

5210  GOSUB  8000 

5220  RETURN 

5500  P  =  250 : D  =  5 

5510  GOSUB  8000 

5520  P  =  P  -  10 

5530  IF  P  >  10  THEN  GOTO  5510 
5540  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, P:  POKE  11, D:  CALL  768:  RET 
URN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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10  REM  DETROIT  CITY 
15  REM  APPLE  IIE/IIC  VERSION 
20  GOSUB  1640:  REM  INITIALIZE 
30  GOTO  110 

40  MT  =  MT  +  1:  REM  COUNTS  MONTHS 

50  GOSUB  650 

60  IF  TP  >  200  THEN  1560 

70  PRINT  "DO  YOU  WANT  TO  RESIGN  (Y/N)?" 

80  GOSUB  1010 

90  IF  A$  =  "Y"  THEN  PRINT  "OK,  CHIEF" :P 
Z  =  50 :D  =  250:  GOSUB  8000:  END 


100 

GOSUB 

1380 

no 

GOSUB 

650 

120 

FOR  T 

=  1  TO  1000:  NEXT  T 

130 

GOSUB 

850 

140 

PRINT 

"DO  YOU  WANT  TO 

EXPAND 

OUTPUT 

(Y/N) 

?" 

150 

GOSUB 

1010 

160 

IF  A$ 

=  "Y"  THEN  1080 

170 

IF  SF 

=  1  THEN  210 

180 

PRINT 

"DO  YOU  WANT  TO 

SELL  FACTORY  4 

(Y/N)?" 

190 

GOSUB 

1010 

200 

IF  A$ 

=  "Y"  THEN  1250 

210 

GOSUB 

650 

220 

INPUT 

"HOW  MANY  EMPLOYEES  TO 

HIRE  "; 

HE 

230  NE  =  NE  +  HE:  IF  HE  >  0  THEN  260 
240  INPUT  "HOW  MANY  EMPLOYEES  TO  FIRE  "; 
HE 

250  N  =  NE  -  HE 
260  GOSUB  650 

270  PI  =  AS:  REM  SET  PI  EQUAL  TO  OLD  PRI 
CE 

280  INPUT  "WHAT  IS  YOUR  SELLING  PRICE  " ; 
AS 

290  REM  NEXT  LINE  REJECTS  TOO  BIG  A  CHA 
NGE  IN  SELLING  PRICE 

300  IF  ABS  (PI  -  AS)  >  2500  THEN  PRINT 
"TOO  BIG  A  CHANGE  FOR  THE  MARK 
ET":  GOTO  280 
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310  HOME 

320  PRINT  :  PRINT  :  PRINT 
330  MI  =  INT  (  RND  (1)  *  4000)  +  48  *  10 
00:  REM  THIS  MONTH’S  SALES  BY 
INDUSTRY 

340  C  =  -C  +  1:  REM  COUNTS  NUMBER  OF  MONT 
HS 

350  IF  C  <  3  THEN  470 

360  M  =  INT  (  RND  (1)  *  10  +  1)  /  4:  REM 
INFLATION 
370  HOME 

380  PRINT  "INFLATION  RATE  THIS  QUARTER  I 
S  " ; M ; 

390  PRINT  "AVERAGE  WAGES  BILL  WILL  NOW  R 
ISE  TO" 

400  AW  =  (AW  *  M  /  100)  +  AW 
410  PRINT  TAB(  8)"$";  INT  (AW)"  PER  EMP 
LOYEE" 

430  PRINT  :  PRINT  TAB(  12)"ANY  KEY  TO  C 
ONTINUE" 

440  GET  V$ 

450  FA  =  (FA  *  M  /  100)  +  FA 
460  C  =  0 

470  Y( 1 )  =  NE  *  15  /  12:  REM  SALES  BASED 
ON  NUMBER  OF  EMPLOYEES 

480  Y ( 2 )  =  (100  -  AS  /  FA)  *  MI  /  100:  RE 
M  SALES  BASED  ON  INDUSTRY  SALE 
S 

490  REM  NEXT  LINES  SET  LOWEST  FIGURE  FR 
OM  Y(l) ,Y(2),M(5)  EQUAL  TO  Y(3) 

500  IF  Y ( 1 )  <  Y( 2)  AND  Y(l)  <  M(5)  THEN 
Y ( 3 )  =  Y ( 1 )  :  GOTO  540 
510  IF  Y (2)  <  Y( 1 )  AND  Y(2)  <  M(5)  THEN 
Y( 3 )  =  Y( 2) :  GOTO  540 
520  Y(3)  =  M( 5 ) 

530  REM  NEXT  LINES  DETERMINE  MONTHLY  SA 
LES 

540  IF  ABS  (PI  -  AS)  <  501  THEN  Y(3)  = 
3.6  *  Y( 3)  /  3 

550  IF  Y (3)  >  M( 5)  THEN  Y(3)  =  Y(3)  -  19 
75:  GOTO  550 

560  MC  =  (MC  *  M  /  100)  +  MC 

570  EF  =  Y(3)  /  M(5 )  *  100:  REM  EFFICIEN 
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CY  %  AS  SALES  DIVIDED  BY  TOTAL 
OUTPUT 

580  AC  =  (MC  *  (  ABS  (85  -  EF)  /  3)  /  100 
)  +  MC:  REM  AVERAGE  COST  PER  V 
EHICLE 

590  MP  =  ( (Y(3)  *  (AS  -  AC))  -  (NE  *  AW  / 

12)):  REM  MONTHLY  PROFIT 

600  MP  =  INT  (MP  /  (100  *  1000)) 

610  TP  =  TP  +  MP  /  10:  REM  TOTAL  PROFIT 
IN  MILLIONS 
620  M  =  0 
630  GOTO  40 

640  REM  *********************** 

650  REM  REPORT  PRINTOUT 
660  HOME 

665  PZ  =  100:DZ  =  100:  GOSUB  8000 
670  PRINT  "INDUSTRY  SALES  ";MI;"  IN  MONT 
H  "  ;MT 

680  IF  MT  >  0  THEN  PRINT  "YOUR  SALES:  " 

;  INT  ( Y ( 3 ) ) ; "  (";  INT  (Y(3)  * 

1000  /  MI)  /  10;"%  OF  TOTAL)" 

690  PRINT  " - 

700  PRINT  "YOU  HAVE  " ; NE ; "  EMPLOYEES" 

710  PRINT  "AVERAGE  WAGES  ARE  $";  INT  (AW 

) 

720  PRINT  "  OR  $M  INT  (AW  *  NE  /  (100 
*  1000)  /  12)  /  10;"  PER  MONTH 

730  PRINT  " - - 

740  IF  MT  =  0  THEN  RETURN 
750  PRINT  "AVERAGE  COST  PER  VEHICLE  IS  $ 
";  INT  (AC) 

760  PRINT  "AND  AVERAGE  SELLING  PRICE  IS 
$";  INT  (AS) 

770  PRINT  "SO  THE  AVERAGE  PROFIT  IS  $"; 
INT  (AS  -  AC) 

780  PRINT  "OR  $M  ";  INT  ((AS  -  AC)  *  Y(3 
)  /  (100  *  1000))  /  10;"  PER  MO 
NTH" 

790  PRINT  " - 
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800  PRINT  "PROFIT  FOR  THE  MONTH  IS  $M 
MP  /  10 

810  PRINT  "&  TOTAL  PROFIT  TO  DATE  IS  $M 
INT  (TP  *  10)  /  10 

820  PRINT  " - * - 


830  RETURN 

840  REM  sic******************* 

850  REM  MONTH  REPORT 
860  HOME 

865  PZ  =  150 : DZ  =  100:  GOSUB  8000 


880 

890 

PRINT 

PRINT 

"MAXIMUM  MONTHLY 

OUTPUT:" 

900 

PRINT 

TAB(  3) "FACTORY 

1:  "; 

INT 

(M( 

1)) 

910 

PRINT 

TAB(  3)"FACT0RY 

2: 

INT 

(M( 

2)) 

920 

PRINT 

TAB(  3) "FACTORY 

3:  "; 

INT 

CH( 

3)) 

930 

940 

IF  SF 
PRINT 

=  1  THEN  960 

TAB(  3) "FACTORY 

4: 

INT 

(M( 

4)) 


950 

960 

PRINT 

PRINT 

PRINT 

"TOTAL  OUTPUT  IS  "; 

INT 

(M(  5 ) ) 

980 

PRINT 

"EFFICIENCY  LEVEL  IS 

INT  (E 

F) ; 

990 

RETURN 

1000 

REM 

*  *  *  *:  jfe  sje  *:  *  *: sic  *  *  *  *  *  *  *  *  *:  *  * 

1010 

REM 

GET  REPLIES 

1020 

GET  A$ 

1030 

IF  A$  <  >  "Y"  AND  A$  < 

>  "N 

"  THEN 

1020 

1040 

PRINT  TAB(  22 ) A$ 

1050 

FOR  s 

I  =  1  TO  500:  NEXT  J 

1060 

RETURN 

1070 

REM 

********************* 

1080 

REM 

INCREASE  OUTPUT? 

1090 

IF  M(4)  =  0  THEN  X  =  15: 

GOTO 

1110 

1100 

X  =  18 
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1110 

AND" 

PRINT 

"IT  WILL  COST  $M  ": 

;X ; "  TO  EXP 

1120 

1130 

PRINT 

PRINT 

TAB(  8) "OUTPUT  BY 

1%" 

1140 

PRINT 

"HOW  MANY  %  DO  YOU 

WISH  TO  RA 

ISE  OUTPUT?" 

1150  INPUT  EP:  IF  EP  <  0  OR  EP  >  100  THE 
N  1150 

1160  M( 5 )  =  0 

1170  FOR  T  =  1  TO  4 

1180  M(T)  =  M(T)  +  M(T)  *  EP  /  100 

1190  M(5)  =  M( 5 )  +  M(T) 

1200  NEXT  T 

1210  TP  =  TP  -  EX  *  X 

1220  FOR  T  =  1  TO  500:  NEXT  T 

1230  GOTO  170 

1240  REM  ********************** 

1250  REM  SALE  OF  FACTORY  FOUR 
1260  PRINT  "FACTORY  FOUR  IS  VALUED  FOR  S 
ALE  AT  $M  104" 

1270  PRINT  "YOU  CAN’T  REBUY  IT  LATER  IF 
YOU  SELL  IT. . 

1280  PRINT  "DO  YOU  WANT  TO  SELL  (Y/N)?" 

1290  GOSUB  1010 

1300  IF  A$  =  "N"  THEN  210 

1310  TP  =  TP  +  104 

1320  SF  =  1 

1330  M( 5 )  =  M( 1 )  +  M( 2 )  +  M(3) 

1340  M(4 )  =  0 
1350  GOTO  170 

1360  REM  ************** ******* 

1370  REM  CHECK  ON  LOSSES 

1380  IF  MP  >  0  THEN  SA  =  0:  GOTO  1480 

1390  SA  =  SA  +  1 

1400  IF  SA  >  11  THEN  1420 

1410  GOTO  1480 

1420  HOME  : PZ  =  150:D  =  250:  GOSUB  8000: 
PZ  =  1 50 : DZ  =  250:  GOSUB  8000 
1430  PRINT  :  PRINT  "YOU  JUST  MADE  YOUR  T 
WELFTH  MONTHLY" 

1440  PRINT  "LOSS  IN  A  ROW . " 

1450  PRINT  TAB(  6)"Y0UR  EMPLOYMENT" 
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1460  PRINT  TAB(  6)"IS  HEREBY  TERMINATED 
!  ! " 

1470  END 

1480  IF  TP  >  =  -  250  THEN  1530 

1490  HOME  : PZ  =  200:DZ  =  250:  GOSUB  8000 
1500  PRINT  :  PRINT  "UNDER  YOUR  MANAGEMEN 
T,  THE  COMPANY  HAS" 

1510  PRINT  "LOST  MORE  THAN  $M  250!!" 

1520  GOTO  1450 

1530  IF  TP  >  200  THEN  1570 

1540  RETURN 

1550  REM  *********************** 

1560  REM  SWEET  SWEET  SUCCESS!!! 

1570  HOME  :  GOSUB  5000 

1580  PRINT  :  PRINT  "WELL  DONE!  THE  COMPA 
NY  HAS  MADE  MORE" 

1590  PRINT  "  THAN  $M  200.  YOU'VE  BEEN 
MADE" 

1600  PRINT  »  A  MEMBER  OF  THE  BOA 

RD" 

1610  FOR  T  =  1  TO  2000:  NEXT  T 
1620  END 

1630  REM  *********************** 

1640  REM  INITIALIZATION 


1650 

HOME 

1660 

GOSUB  8020 

1670 

DIM 

M(5),Y(5) 

1680 

NE  = 

12000: 

REM 

STARTING  NO.  OF  EMP 

LOYEES 

1690 

AW  = 

22995: 

REM 

STARTING  AVERAGE  WA 

GE 

1700 

AC  = 

11100: 

REM 

COST  PRICE/VEHICLE 

1710 

AS  = 

12000: 

REM 

SELLING  PRICE 

1720 

MI  = 

50  *  1000 :MC  =  10100 

1730 

Y(3) 

=  12500 

1740 

MS  = 

25 : EF  : 

=  77: 

FA  =  160 : SF  =  0:MT  = 

0 

1750 

FOR 

J  =  1  1 

TO  5 

1760 

READ 

M(J) 

1770 

NEXT 

J 

1780 

RETURN 

1790 

DATA 

8900 

,3250 

,2500,1625,16275 

5000 

PZ  = 

200 : DZ 

=  50 
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5010  FOR  TL  =  1  TO  5 

5020  GOSUB  8000 

5030  FOR  TH  =  1  TO  50:  NEXT  TH 

5040  NEXT  TL 

5050  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, PZ:  POKE  11, DZ:  CALL  768:  R 
ETURN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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10  REM  GRIDIRON 

15  REM  APPLE  IIE/IIC  VERSION 

20  HOME 

30  GOSUB  8020 

40  GOSUB  70 

50  GOTO  220 

60  REM  si;****:!:**:?:!!:**:?:*!}:*:}:# 

70  .  FOR  X  =  1  TO  2000:  NEXT  X 

80  RETURN 

100  PRINT  A$;SA 

110  PRINT  B$ ; SB 

120  RETURN 

130  REM  ********************** 

140  IF  Z$  =  A$  THEN  Z$  =  B$:  RETURN 

150  Z$  =  A$ :  RETURN 

170  PRINT  "  >PRESS  ANY  KEY<" 

180  GET  M$ 

200  P  =  100 : D  =  50:  GOSUB  8000:  PRINT  TA 
B(  18)"0KM:  RETURN 
210  REM  ********* 

220  REM  INTIALISE 

230  DEF  FN  A(X)  =  INT  (  RND  (1)  *  X)  + 
1 

240  PRINT  "ONE  PLAYER  OR  TWO" 

250  INPUT  X 

260  IF  X  <  1  OR  X  >  2  THEN  250 
270  IF  X  =  1  THEN  VC  =  1:A$  =  "SILICON  C 
OWBOYS  ":  GOTO  300 

280  PRINT  "WHAT  IS  THE  NAME  OF  THE  HOME 
TEAM?" 

290  INPUT  A$ :  IF  A$  =  ""  THEN  290 
295  A$  =  A$  +  "  " 

300  PRINT  "AND  THE  NAME  OF  THE  VISITING 
TEAM?" 

310  INPUT  B$ :  IF  B$  =  ""  THEN  310 
315  B$  =  B$  +  "  " 

320  Z$  =  A$:NU  =  35 
330  HOME 

340  PRINT  "THERE  ARE  ";  INT  (10  *  (60  - 
(W  /  4)))  /  10;"  MINUTES  TO, GO" 

350  PRINT  TAB(  8)Z$;"T0  KICK  OFF" 


220 


Apple  Ue 

360  PRINT  "YOU  ARE  ON  YOUR  OWN  " ; NU ; "  YA 
RD  LINE" 

370  IF  VC  =  1  AND  Z$  =  A$  THEN  GOSUB  70 
:  GOTO  400 

380  PRINT  "TO  KICK  OFF..." 

390  GOSUB  170 

400  A  =  FN  A(20)  +  40 

410  PRINT  Z$ ; "HAVE . . . " 

415  GOSUB  70 
420  FOR  I  =  1  TO  A 

425  PX  =  INT  (X  /  3):  IF  PX  <  1  THEN  PX 
=  1 

430  PRINT  TAB(  PX)"KICKED  ";X;"  YARDS" 

440  NEXT  X 
450  NU  -  NU  +  X 
460  GOSUB  70 

470  PRINT  "THE  BALL  IS  CAUGHT!" 

480  GOSUB  70 

490  A  =  FN  A(30)  +  10 

500  FOR  X  =  1  TO  A 

505  PX  -  X  /  5:  IF  PX  <  1  THEN  PX  =  1 
510  PRINT  TAB (  PX)"AND  RETURNED  ";X;"  Y 
ARDS" 

520  NEXT  X 

530  NU  =  ABS  (100  -  NU  +  X) 

540  GOSUB  140 

550  PRINT  " - 

560  PRINT  "THE  BALL  IS  DOWN  ON" 

570  PRINT  Z$"’S  " ; NU ; "  YARD  LINE" 

580  IF  Z$  =  A$  AND  VC  =  1  THEN  GOSUB  70 
:  GOTO  600 
590  GOSUB  170 
600  TG  =  1 0 : DN  -  0:SL  =  NU 
610  IF  W  =  60  OR  W  =  180  THEN  2010 
620  IF  W  =  120  THEN  2070 
630  IF  W  =  240  THEN  2140 
640  HOME 

650  PRINT  LEFT$  (A$,6);"  ";SA;"  ";  LEFT 
$  ( B$ , 6 ) ; "  " ; SB 

660  PRINT  INT  (10  *  (60  -  (W  /  4)))  /  1 
0;"  MINUTES  TO  GO" 

670  GOSUB  70 
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680 

PRINT 

" - 

690 

PRINT 

Z$ ; "IN  POSSESSION" 

700 

PRINT 

TAB(  4)DN; "  DOWN" 

710 

PRINT 

TAB (  4 ) T G ; "  YARDS  TO  GO" 

720 

PRINT 

" - 

730 

PRINT 

"START  AT  " ; SL ; "  YARD  LINE" 

740 

PRINT 

"NOW  ON  " ; NU ; "  YARD  LINE" 

750 

PRINT 

100  -  NU;"  YARDS  TO  TOUCHDOWN" 

760 

PRINT 

770 

PRINT 

"ON  THIS  PLAY 

780 

0  800 

IF  Z$ 

=  A$  THEN  PRINT  A$;"CAN":  GOT 

790 

PRINT 

B$ ; "CAN" 

800 

PRINT 

"EITHER  1  -  THROW" 

810 

PRINT 

"  2  -  CARRY" 

829 

PRINT 

"  OR  3  -  PUNT" 

830 

PT  -  0 

840 

IF  Z$ 

=  A$  AND  VC  =  1  AND  DN  <  3  THE 

N  PT  =  2:  GOTO  900 

850  IF  Z$  =  A$  AND  VC  =  1  AND  TG  <  7  THE 
N  PT  =  2:  GOTO  900 

855  IF  Z$  =  A$  AND  VC  =  1  AND  DN  >  2  THE 
N  PT  -  3:  GOTO  900 

860  IF  Z$  =  A$  AND  VC  =  1  AND  (100  -  NU) 
<  31  THEN  PT  =  3:  GOTO  900 
870  IF  Z$  =  A$  AND  VC  -  1  THEN  PT  =  1:  G 
OTO  900 

880  GET  K$ :  IF  K$  <  "l"  OR  K$  >  "3"  THEN 
880 

890  PT  =  VAL  (K$ ) :  PRINT  TAB(  10)"OK  " ; 
PT 

900  GOSUB  70 
910  W  =  W  +  1 
920  HOME 

930  PRINT  Z$ ; " ,  YOUR  QUARTERBACK  HAS" 

940  PRINT  TAB(  8)"G0T  THE  BALL" 

950  PRINT  " - - - 


960  PRINT  "WAIT  FOR  THE  COUNT, 

970  PRINT  TAB(  8) "THEN  HIT  ANY  KEY.,. 
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980  1$  =  "" 

990  GOSUB  70 

1000  GOSUB  2200 

1010  IF  E  =  11  THEN  2340 

1020  PRINT  "■ - 

1030  ON  PT  GOTO  1050,1310,1590 
1040  REM  *************************** 
1050  PRINT  "YOU’VE  THROWN  ";E  *  5;"  YARD 
S" 

1060  PRINT  TAB(  4);"AND  THE  PLAY  IS..." 
1070  A  =  FN  A(8) 

1080  IF  A  =  1  THEN  1520 
1090  A  =  FN  A(E  +  1) 

1100  IF  A  =  1  THEN  PRINT  TAB(  20)"... C 
OMPLETE":  GOTO  1220 

1110  PRINT  TAB(  20) "... INCOMPLETE" : DN  = 
DN  +  1 

1120  GOSUB  170 

1130  PRINT  " - 

1140  IF  DN  >  3  THEN  1160 
1150  GOTO  610 

1160  PRINT  "THAT  WAS  YOUR  FOURTH  DOWN" 
1170  PRINT  "AND  YOU'VE  LOST  POSSESSION!! 

1180  DN  =  0 : TG  =  10:NU  =  ABS  (100  -  NU) : 
SL  =  NU 


1190 

GOSUB  70 

1200 

GOSUB  140 

1210 

GOTO  610 

1220 

GOSUB  170 

1230 

NU  =  NU  +  (E  *  5) :TG  = 

TG  - 

(E  *  5) 

1240 

IF  NU  >  100  THEN  1800 

1250 

IF  TG  <  1  THEN  1280 

1260 

DN  =  DN  +  1:  IF  DN  >  3 

THEN 

1160 

1270 

GOTO  610 

1280 

DN  =  0 :  TG  =  10-.SL  =  NU 

1290 

GOTO  610 

1300 

REM  ********************** 

1310 

A  =  FN  A( 15) 

1320 

IF  A  =  1  THEN  1510 

1330 

E  =  A  -  5 
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1340  IF  E  <  0  THEN  1440 

1350  IF  E  =  0  THEN  E  =  1:  GOTO  1370 

1360  PRINT  "GOOD  SNAP,  PASS  AND  RUN" 

1370  PRINT  "YOU'VE  GAINED  ";Ej"  YARDS" 
1380  GOSUB  170 

1390  TG  =  TG  -  E : NU  =  ABS  (NU  +  E) : DN  = 
DN  +  1 

1400  IF  NU  >  100  THEN  1800 
1410  IF  TG  <  1  THEN  1280 
1420  IF  DN  >  3  THEN  1160 
1430  GOTO  610 

1440  PRINT  "GREAT  RUNNING  BY  THE  OPPOSIT 
ION  HAS" 

1450  PRINT  "CAUSED  YOU  TO  LOSE  ABS  (E 
);"  YARDS" 

1460  TG  =  TG  -  E : NU  =  NU  +  E : DN  -  DN  +  1 

1470  GOSUB  170 

1480  IF  DN  >  3  THEN  1160 

1490  GOTO  610 

1500  REM  ************************ 

1510  PRINT  "BAD  SNAP ...  YOU ' VE" 

1520  PRINT  "FUMBLED. . .AND" 

1530  PRINT  "YOU'VE  LOST  POSSESSION..." 
1540  NU  =  100  -  NU : DN  =  0:TG  =  10:SL  =  NU 
1560  GOSUB  170 
1570  GOTO  460 

1580  REM  ************************* 

1590  PRINT  "NICE  PUNT..." 

1600  PRINT  "YOU'VE  KICKED  ";E  *  4;"  YARD 
S" 


1610 

1620 

1630 

NU  =  NU  +  E  *  E 

IF  NU  >  100  THEN  1650 

1640 

GOTO  460 

1650 

A  =  FN  A( 3) 

1660 

IF  A  >  1  THEN  1740 

1670 

PRINT  "BUT  YOU'VE  MISSED  THE 

GOAL" 

1680 

IF  NU  -  E  *  4  <  80  THEN  NU  = 

ABS  ( 

100  - 

(NU  -  E  *  4)) :  GOTO  1700 

1690 

NU  =  20 

1700 

DN  =  0 : TG  =  10:SL  =  NU 

1710  GOSUB  140 
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1720  GOSUB  170 
1730  GOTO  610 

1740  PRINT  "...AND  SCORED!" 

1745  P  =  50 : D  =  150:  GOSUB  8000 
1750  IF  Z$  =  B$  THEN  SB  =  SB  +  3:  GOTO  1 
770 

1760  SA  =  SA  +  3 
1770  GOSUB  100 
1780  GOSUB  170 
1790  NU  =  35:  GOTO  330 
1800  HOME 

1810  FOR  X  =  1  TO  5 

1820  PRINT  TAB(  X  *  2) "TOUCHDOWN !! " 

1825  P  =  25 : D  =  25:  GOSUB  8000 
1830  NEXT  X 

1840  IF  Z$  -  A$  THEN  SA  =  SA  +  6:  GOTO  1 
860 

1850  SB  =  SB  +  6 
1860  GOSUB  100 

1870  PRINT  "TO  PLAY  FOR  EXTRA  POINT" 

1880  GOSUB  170 

1890  PRINT  " - - - 


1900  PRINT  "THE  BALL  IS  SNAPPED ... PREPAR 
E  TO  KICK!" 

1910  GOSUB  70 
1920  GOSUB  2200 

1930  IF  E  >  9  THEN  PRINT  "YOU  MISSED":N 
U  =  20:  GOTO  1970 

1940  PRINT  "YOU  SCORED ...": NU  =  35 
1950  IF  Z$  =  A$  THEN  SA  =  SA  +  1 :  GOTO  1 
980 

1960  SB  =  SB  +  1 

1970  GOSUB  140 

1980  GOSUB  100 

1990  GOSUB  170 

2000  GOTO  330 

2010  FOR  X  =  1  TO  10 

2015  P  =  200 : D  =  100:  GOSUB  8000 

2020  PRINT  TAB(  2  *  X)"PERIOD  OVER" 

2030  NEXT  X 
2040  GOSUB  100 
2050  GOSUB  170 
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2060  GOTO  660 

2070  FOR  X  =  1  TO  10 

2080  PRINT  TAB(  X  *  2) "HALF  TIME" 

2090  NEXT  X 
2100  GOSUB  100 
2110  Z$  =  B$ 

2120  GOSUB  170 

2130  NU  =  35 : W  =  W  +  2:  GOTO  330 

2140  FOR  X  =  1  TO  10 

2150  PRINT  TAB(  X  *  2) "GAME  OVER" 

2160  NEXT  X 
2170  GOSUB  100 
2180  END 

2190  REM  *********************** 

2200  E  =  0 : X  =  10 

2210  IF  Z$  =  A$  AND  VC  =  1  THEN  PRINT  " 
THIS  ONE  FOR  ";A$:  GOTO  2290 

2220  E=E+  1 : X  =  X  -  1 

2230  PRINT  TAB(  E);E 

2240  FOR  Y  =  1  TO  X  *  1.5 
2250  I  =  PEEK  (  -  16384)  -  128:  IF  I  >  0 
THEN  1$  =  CHR$  (I) 

2252  POKE  -  16368,0 

2255  IF  1$  <  >  ""  THEN  Y-X*  1.5+1: 

RETURN 

2260  NEXT  Y 

2270  IF  E  =  11  THEN  RETURN 
2280  GOTO  2220 

2290  FOR  E  =  1  TO  FN  A(7)  +  2 

2300  FOR  J  =  1  TO  60:  NEXT  J 

2310  PRINT  TAB(  E);E 

2320  NEXT  E 
2330  RETURN 

2340  PRINT  "TOO  LATE!!" 

2350  PRINT  "YOU'VE  BEEN  SACKED!!" 

2360  E  =  FN  A(4) 

2370  IF  E  =  3  THEN  2430 

2380  PRINT  "AND  LOST  FIVE  YARDS!" 

2390  TG  =  TG  +  5:DN  =  DN  +  1:NU  =  NU  -  5 

2400  GOSUB  170 

2410  IF  DN  >  3  THEN  1160 

2420  GOTO  610 

2430  PRINT  "AND  LOST  POSSESSION!" 
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2440  DN  =  0 : NU  =  ABS  (100  -  NU  +  5):SL  = 
NU :TG  =  10 
2450  GOSUB  170 
2460  GOSUB  140 
2470  GOTO  610 
8000  REM  SOUND  ROUTINE 
8010  POKE  10, P:  POKE  11, D:  CALL  768:  RET 
URN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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10  REM  TENNIS 

15  REM  APPLE  IIE/IIC  VERSION 
20  HOME 
30  GOSUB  8020 

40  AA  =  0 : BB  =  0:T  =  0:KA  =  0 
50  XA  =  0 : YA  =  0:ZA  =  0 
60  XB  =  0 : YB  =  0:ZB  =  0 

70  DEF  FN  A(X)  =  INT  (  RND  (1)  *  X)  + 

1 

80  INPUT  "ONE  HUMAN  PLAYER  OR  TWO  " ; A 
90  IF  A  <  1  OR  A  >  2  THEN  80 
100  IF  A  =  1  THEN  A$  =  "BJORNX":VC  =  1 
110  IF  VC  =  1  THEN  160 

120  PRINT  "PLEASE  ENTER  A  SIX-LETTER  NAM 
E" 

130  INPUT  "NAME  OF  FIRST  PLAYER  ";A$ 

140  IF  LEN  ( A$ )  <  6  THEN  A$  =  A$  +  " 
GOTO  140 

150  A$  =  LEFT$  ( A$ , 6) 

160  INPUT  "NAME  OF  SECOND  PLAYER  ";B$ 

170  IF  LEN  ( B$ )  <  6  THEN  B$  =  B$  +  "  ": 
GOTO  170 

180  B$  =  LEFT$  (B$ , 6) 

190  S  =  1:AA  =  1:BB  =  1 
200  HOME 

210  P$  =  A$:R$  =  B$ 

220  REM  ****## ****** ********** 

230  IF  P$  =  A$  THEN  R$  =  B$ 

240  IF  P$  =  B$  THEN  R$  =  A$ 

250  PRINT  P$ ; "  SERVING" 

260  PRINT  "DO  YOU  WANT  TO  SERVE  1  -  FAST 

270  PRINT  "  OR  2  -  SLOW 

280  IF  P$  =  A$  AND.  VC  =  1  AND  SC  =  0  THE 
N  KB  =  1:  GOSUB  1720:  GOTO  330 
290  IF  P$  =  A$  AND  VC  =  1  AND  SC  =  1  THE 
N  KB  =  2:  GOSUB  1720:  GOTO  330 
300  K$  =  " " : K  =  PEEK  (  -  16384)  -  128:  I 
F  K  >  0  THEN  K$  =  CHR$  (X) :  POKE 
-  16368,0 
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310 

IF  K$ 

<  "1"  OR 

K$  >  "2"  THEN  300 

320 

KB  = 

VAL  (K$) 

330 

PRINT 

:  PRINT 

TAB(  6 )KB ;  TAB(  10)' 

’> 

IT'S 

A 

340 

IF  KB 

=  1  THEN 

PRINT  "FAST"; 

350 

IF  KB 

=  2  THEN 

PRINT  "SLOW"; 

360 

PRINT 

"  SERVE.. 

,  . " 

370 

GOSUB 

1720 

380 

IF  KB 

=  1  THEN 

EB  =  FN  A ( 3 ) :  GOTO 

4 

00 

390  EB  =  FN  A(8) 

400  IF  EB  =  1  THEN  450 

410  IF  EB  =  3  AND  SC  =  0  THEN  520 

420  IF  EB  =  3  AND  SC  =  1  THEN  590. 

430  GOTO  670 

440  REM  ************************* 

450  HOME  :  PRINT 

460  PRINT  TAB(  8)" _ ACE...” 

470  GOSUB  1720 

480  SC  ■  0 

490  IF  P$  =  A$  THEN  1140 
500  GOTO  1150 

510  REM  ************************* 

520  HOME  :  PRINT 

530  PRINT  TAB(  12)’’ _ OUT _ " 

540  PRINT  TAB(  8) "...  SECOND  SERVE..." 
550  GOSUB  1720 

560  SC  =  1 
570  GOTO  230 

580  REM  ************************** 

590  HOME  :  PRINT 

600  PRINT  TAB(  12)" _ OUT _ " 

610  PRINT  TAB(  9)" _ DOUBLE  FAULT _ 

620  GOSUB  1720 

630  SC  =  0 

640  IF  P$  =  A$  THEN  1150 

650  GOTO  1140 

660  REM  ************************** 

670  SC  =  0 

680  HOME  :  PRINT 

690  POKE  -  16368,0 

700  PRINT  R$ ; " ,  THE  BALL  IS":  PRINT  "IN 

YOUR  COURT" 
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710  PRINT  " - " 

720  IF  R$  =  A$  AND  VC  =  1  THEN  750 
730  PRINT  "HIT  ANY  KEY,  WHEN  YOU  SEE  THE 
ZERO,  (  TO  RETURN  THE  BALL.. 

750  X  =  4  *  FN  A(3) : Y  =  X 
760  GOSUB  1720 
770  E  =  5 

780  PRINT  TAB(  2  *  (11  -  E));E 
790  Y  =  Y  -  1 

800  S$  =  " " : S 1  =  PEEK  (  -  16384)  -  128: 
IF  SI  >  0  THEN  S$  =  CHR$  (S):  POKE 
-  16368,0 

810  IF  S$  <  >  ""  AND  E  -  0  THEN  890 

820  IF  S$  <  >  ""  THEN  990 

830  IF  Y  >  0  THEN  790 

840  E  =  E  -  1:Y  =  X 
850  IF  E  <  -  1  THEN  990 

860  IF  E  =  -  1  AND  R$  =  A$  AND  VC  =  1  T 

HEN  890 
870  GOTO  780 

880  IF  KB  =  1  THEN  EA  =  FN  A(2):  GOTO  1 
000 

890  EA  =  FN  A (4)  :  GOSUB  5000 

900  IF  E  =  0  AND  R$  =  A$  AND  VC  =  1  THEN 

EA  =  FN  A(8) 

910  IF  EA  =  1  THEN  940 

920  IF  R$  =  A$  THEN  R$  =  B$:  GOTO  670 

930  R$  =  A$ :  GOTO  670 

940  PRINT  R  $  ;  "  ,  YOU.VE  HIT  THE  BALL" 

950  PRINT  TAB(  8)"0UT  OF  PLAY..." 

960  GOSUB  1720 

970  IF  R$  =  A$  THEN  R$  =  B$:  GOTO  1150 
980  GOTO  1140 
990  EA  =  FN  A(4) 

1000  IF  EA  =  1  THEN  1070 

1010  PRINT  "YOU  MISSED  THE  BALL,  AND..." 

1020  GOSUB  1720 

1030  PRINT  "IT  WAS  IN... BAD  MISTAKE" 

1040  GOSUB  1720 

1050  IF  R $  =  A$  THEN  R$  =  B$:  GOTO  1150 
1060  GOTO  1140 

1070  PRINT  "YOU  MISSED  THE  BALL  AND..." 
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1080  GOSUB  1720 

1090  PRINT  "  IT  WAS  OUT.. WELL  LEFT" 
1100  GOSUB  1720 

1110  IF  R$  =  A$  THEN  R$  =  B$:  GOTO  1140 
1120  GOTO  1150 

1130  REM  ************************ 

1140  AA  =  AA  +  1:  GOTO  1160 
1150  BB  =  BB  +  1 

1160  IF  AA  <  5  AND  BB  <  5  THEN  1230 
1170  IF  (BB  >  4  AND  AA  <  4)  OR  (BB  >  4  A 
ND  BB  -  AA  >  1)  THEN  AA  =  1:BB  = 

1:  GOTO  1500 

1180  IF  (AA  >  4  AND  BB  <  4)  OR  (AA  >  4  A 
ND  AA  -  BB  >  1)  THEN  AA  =  1:BB  = 

1:  GOTO  1440 

1190  '  IF  AA  >  4  AND  AA  >  BB  THEN  C$  =  "AD 

V" : D$  =  " - GOTO  1320 

1200  IF  (BB  >  4  AND  BB  >  AA)  THEN  D$  =  " 

ADV" : C$  =  " - ":  GOTO  1320 

1210  C$  =  " {DEUCE" :D$  =  "{DEUCE":  GOTO  13 
20 

1220  REM 

1230  RESTORE 

1240  FOR  D  =  1  TO  AA 

1250  READ  C$ 

1260  NEXT  D 

1270  RESTORE 

1280  FOR  D  =  1  TO  BB 

1290  READ  D$ 

1300  NEXT  D 

1310  REM  ************************* 

1320  HOME 

1330  PRINT  " - " 

1340  PRINT  "  SET  SET  SET" 

1350  PRINT  " - " 

1360  PRINT  "  123  GAME" 

1370  PRINT  A  $ ; "  ";XA;"  " ; YA ; "  " 

; ZA ; "  ";C$ 

1380  PRINT  B$ ; "  ";XB;"  " ; YB ; "  " 

; ZB ; "  ";D$ 

1390  PRINT  " - " 

1400  GOSUB  1720 

1410  IF  T  <  >1  THEN  230 
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1420  END 

1430  REM  ****  *********={=*>}:  ****>}:  *  *>{:>{:  * 

1440  HOME 

1445  GOSUB  5500 

1450  PRINT  "GAME  TO  ";A$ 

1460  GOSUB  1720 

1470  IF  S  =  1  THEN  XA  =  XA  +  1:C$  =  "0": 
D$  =  "0":  GOTO  1560 

1480  IF  S  =  2  THEN  YA  =  YA  +  1:C$  =  "0": 
D$  =  "0":  GOTO  1580 

1490  IF  S  =  3  THEN  ZA  =  ZA  +  1:C$  =  "0" : 
D$  =  "0":  GOTO  1600 
1500  HOME 
1505  GOSUB  5500 
1510  PRINT  "GAME  TO  ";B$ 

1520  GOSUB  1720 

1530  IF  S  =  1  THEN  XB  =  XB  +  1:C$  =  "0": 
D$  =  "0":  GOTO  1560 

1540  IF  S  =  2  THEN  YB  =  YB  +  1:C$  =  "0": 
D$  =  "0":  GOTO  1580 

1550  IF  S  =  3  THEN  ZB  =  ZB  +  1:C$  =  "0": 
D$  =  "0":  GOTO  1600 

1560  IF  (XA  >  5  AND  XB  <  5)  OR  (XA  <  5  A 
ND  XB  >  5)  THEN  1630 
1570  IF  (XA  >  5  AND  XA  -  XB  >  1)  OR  (XB 

>  5  AND  XB  -  XA  >  1)  THEN  1630 

1580  IF  (YA  >  5  AND  YB  <  5)  OR  (YA  <  5  A 
ND  YB  >  5)  THEN  1630 
1590  IF  (YA  >  5  AND  YA  -  YB  <  1)  OR  (YB 

>  5  AND  YB  -  YA  >  1)  THEN  1630 

1600  IF  (ZA  >  5  AND  ZB  <  5)  OR  (ZA  <  5  A 
ND  ZB  >  5)  THEN  1680 

1610  IF  (ZA  >  5  AND  ZA  -  ZB  >  1)  OR  (ZB 

>  5  AND  ZB  -  ZA  >  1)  THEN  1680 
1620  GOTO  1640 

1630  S  =  S  +  1 
1640  AA  =  1 : BB  =  1 

1650  IF  P$  =  A$  THEN  R$  =  A$:P$  =  B$:  GO 
TO  1320 

1660  P$  =  A$:R$  =  B$:  GOTO  1320 
1670  REM  ********s!!************* 

1680  T  =  1 
1690  GOTO  1320 
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1700  REM  ********************** 

1710  REM  DELAY 

1720  FOR  M  =  1  TO  1000:  NEXT  M 

1730  RETURN 

1740  DATA  "0" , "15" , "30" , "AO" 

5000  PZ  =  200 : DZ  -  50 

5010  GOSUB  8000 

5020  RETURN 

5500  PZ  =  100 : DZ  =  50 

5510  FOR  TL  =  1  TO  3 

5520  GOSUB  8000 

5530  FOR  TD  =  1  TO  50:  NEXT  TD 

5540  NEXT  TL 

5550  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, PZ:  POKE  11, DZ:  CALL  768:  R 
ETURN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  .  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 

14580  IF  S  =  2  THEN  YA  =  YA  +  1 : C$  =  "0" 
:D$  =  "0":  GOTO  1580 
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10 

REM  GRAND  PRIX 

15 

REM  APPLE  IIE/IIC  VERSION 

20 

GOSUB 

2200:  REM  INITIALIZE 

30 

GOSUB 

1190:  REM  CHOOSE  TRACK 

40 

REM  *********************** 

50 

REM  MAJOR  LOOP 

60 

GOSUB 

120:  REM  PRINTOUT 

70 

GOSUB 

280:  REM  ACCELERATION/CHECK 

80 

GOSUB 

450:  REM  ENGINE/BRAKES 

90 

GOSUB 

500:  REM  CORNER/POSITION 

100 

GOTO 

60 

110 

REM 

********************** 

120 

REM 

PRINTOUT 

130 

HOME 

140 

PRINT 

"ENGINE  TEMPERATURE 

INT 

(EN 

G  * 

10)  /  10;"  C.  (MAX.  200)" 

150 

PRINT 

"BRAKE  TEMPERATURE: 

INT 

(BR 

AK  * 

10)  / 

10;"  C.  (MAX.  500)" 

160 

PRINT 

"  DISTANCE  COVERED:  "; 

INT 

(  DI 

ST  * 

10)  / 

10;"  METERS" 

170 

PRINT 

"  :  "  ; 

INT 

(  DI 

ST  * 

100  / 

RR)  /  100;"  LAPS" 

180 

) 

190 

PRINT 

"YOU'RE  IN  POSITION  "; 

INT 

(FP 

PRINT 

„ 

200 

PRINT 

"  CURRENT  SPEED:  "; 

INT 

(SP 

*  10)  /  10 

;"  KPH" 

210 

PRINT 

"  :  "  ; 

INT 

(SP 

*  5 

220 

.555)  / 
E" 

PRINT 

10;"  METERS  PER  MOV 

230 

PRINT 

"CORNER  APPROACHING  "; 

INT 

(AP 

P);" 

METERS 

ii 

'  240 

PRINT 

"RECOMMENDED  SPEED:  ";C(C); 

"  K 

PH" 

250 

PRINT 

ft 

260 

RETURN 

270 

REM 

************************ 

Apple  lie 


280  REM  CHECK  ACCELERATION  AND  FACTORS 
290  GET  X$:  IF  X$  <  >  "Z"  AND  X$  <  >  " 

M"  AND  X$  <  >  "  "  THEN  290 

300  PRINT  TAB(  12)"0K" 

310  X  =  0 

320  IF  X$  =  "M"  THEN  X  =  SP  /  15 
330  IF  X$  =  "Z"  THEN  X  =  -  SP  /  15 

340  NUM  =  NUM  +  1:  REM  NUMBER  OF  MOVES 
350  SP  =  SP  +  X 
360  IF  SP  <  0  THEN  SP  =  0 
370  TRAV  =  SP  *  .5555:  REM  DISTANCE  TRA 
VELLED 

380  DIST  =  DIST  +  TRAV:  REM  TOTAL  DISTAN 
CE  TRAVELLED 

390  ENG  =  ENG  +  (X  /  2)  +  .07:  IF  ENG  <  7 
0  THEN  ENG  =  70  +  RND  (1)  *  8: 

REM  ENGINE  TEMP 

400  IF  X  >  0  THEN  BRAK  =  BRAK  *  .9:  REM 
BRAKE  EMP  FALLING;  ACCELERATIN 
G 

410  IF  X  <1  THEN  BRAK  =  BRAK  -  (3  *  X) 

-  RND  (1)  *  3:  REM  BRAKE  TEMP 
INCREASING;  BRAKING 

420  IF  BRAK  <  8  THEN  BRAK  =  8  +  RND  ( 1 ) 
*  8 

430  RETURN 

440  REM  *********************** 

450  REM  CHECK  ENGINE/BRAKE  TEMP 
460  IF  ENG  >  200  THEN  PRINT  "YOUR  ENGIN 
E  HAS  OVERHEATED":  GOSUB  5000:  GOTO 
830 

470  IF  BRAK  >  500  THEN  PRINT  "YOUR  BRAK 
ES  HAVE  OVERHEATED":  GOSUB  5000 
:  GOTO  830 
480  RETURN 

490  REM  ********************** 

500  REM  CHECK  CORNERING  SPEED  AND  FIELD 
POSITION 

510  APP  =  APP  -  TRAV 

520  IF  APP  >  0  THEN  RETURN 

530  CRASH  =  0 

540  IF  SP  >  (C(C)  *  1.125)  THEN  CRASH  = 
1:  GOTO  690 
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550  IF  SP  >  (C(C)  *  1.1)  THEN  GOTO  690 
560  PNT  =  PNT  +  100  -  ( (C (C )  *  1.1)  -  SP) 
:  REM  CORNERING  POINTS 
570  NC  =  NC  +  1:  REM  NUMBER  OF  CORNERS 
580  CP  =  96  -  (PNT  /  NC) :  REM  CORNERING 
POSITION 

590  AM  =  AM  +  A(C) :  REM  AVERAGE  NUMBER  0 
F  MOVES  ALLOWED 

600  RP  =  NUM  -  AM:  REM  RACING  POSITION. 
YOUR  MOVES  MINUS  AVERAGE  MOVES 
610  FP  =  (CP  +  RP)  /  2:  REM  FIELD  POSITI 
ON  IS  AVERAGE  OF  CORNER  &  RACE 
POSITIONS 

620  IF  FP  <  1  THEN  FP  -  1 
630  C  =  C  +  1 

640  IF  C  =  WW  THEN  C  -  1:  REM  LAP  OVER 
650  APP  =  APP  +  D(C) 

660  IF  LAP  *  QQ  =  AM  THEN  910:  REM  RACE 
OVER 

670  RETURN 

680  REM  ************************** 

690  REM  CRASHED 
700  HOME 

710  PRINT  "YOU  CORNERED  AT  " ;  INT  (10  * 
SPEED)  /  10;"  KPH" 

720  PRINT  "AND  THE  MAXIMUM  SPEED  WAS  JUS 
T  " ; C ( C) 

730  GOSUB  2330 

740  PRINT  "YOU  SPIN  OFF  THE  TRACK..." 

750  GOSUB  2330 

760  IF  CRASH  =  1  THEN  GOSUB  5200:  GOTO 
830 

770  PRINT  "YOU'VE  LOST  20  SECONDS,  BUT  Y 
OU’RE  ABLE  TO  REJOIN  THE  R 

ACE" 

780  NUM  =  NUM  +  10.-SP  =  INT  (2  *  (C(C)  / 
3) 

790  PNT  =  PNT  +  50 
800  GOSUB  2330 
810  GOTO  570 

820  REM  *****'******************** 

830  PRINT  " . . AND  CRASH!!!!!!" 
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840 

PRINT 

" - 

850 

PRINT 

"YOU  ONLY  COMPLETED  ";  INT  (10 

*  DIST)  / 

10;"  METERS" 

860 

PRINT 

"OR  " ;  INT  (DIST  *  100  /  RR)  / 

100; 

"  LAPS 

AND  AT  THAT" 

870 

PRINT 

"STAGE  WERE  IN  POSITION  ";  INT 

(FP) 

880 

PRINT 

890 

GOTO 

1050 

900 

REM 

910 

REM 

RACE  OVER 

920 

HOME 

930 

EFLAG 

=  1 

940 

FOR  X 

=  1  TO  20 

950 

PRINT 

TAB(  X) "WELL  DONE,  ";A$;"  !!" 

960 
!  ! " 
970 

PRINT 

TAB(  21  -  X ) "WELL  DONE  ";A$;" 

NEXT  : 

X 

980 

PRINT 

" - 

990 

PRINT 

"YOU  MANAGED  TO  LAST  OUT  THE  F 

ULL  M;LAP;"  LAP  RACE. . . 

1000  PRINT  " - 


1010  GOSUB  2330 

1020  PRINT  "YOU  FINISHED  IN  POSITION 
INT  (FP) 

1030  PRINT  "AFTER  STARTING  IN  6TH  POSITI 
ON " 

1040  GOSUB  2330 

1050  PRINT  "YOUR  AVERAGE  SPEED  WAS  ";  IN 
T  (DIST  *  180  /  NUM)  /  100;"  KP 
H" 

1060  GOSUB  2330 
1070  IF  RP  <  1  THEN  RP  =  1 
1080  IF  CP  <  1  THEN  CP  =  1 
1090  PRINT  "YOU  WERE  ";  INT  (  ABS  (RP)); 
"TH  FASTEST  ON  STRAIGHTS," 

1100  PRINT  "AND  " ;  INT  (  ABS  (CP));"TH  F 
ASTEST  ON  CORNERS." 
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1110  PRINT  :  PRINT  "PRESS  'S'  FOR  SAME  R 


ACE,  ' 

N'  FOR  NEW 

RACE 

,  'E'  T 

0 

END" 

1120 

GET  1$:  IF 

1$  < 

>  "S"  AND  1$  <  > 

"N"  AND  1$  <  >  "E 

"  THEN 

1120 

1130 

IF  1$  =  "E" 

THEN 

END 

1140 

GOSUB  2240 

1150 

RESTORE 

1160 

IF  1$  =  "S" 

THEN 

GOSUB  1490 : LAP  = 

L2AP : 

GOTO  60 

1170 

IF  1$  =  "N" 

THEN 

HOME,  :  GOSUB  1250 

:  GOTO  60 

1180  REM  ********************** 

1190  REM  NAME  AND  TRACK  DATA 
1200  INPUT  "WHAT  IS  YOUR  NAME,  DRIVER 
A$ 

1210  PRINT 

1220  FOR  X  =  1  TO  3 

1230  PRINT  TAB(  4  *  X)"OK,  GOOD  LUCK,  " 
;  A$ 

1240  GOSUB  2330:  NEXT  X 

1250  PRINT  "**************************** 

1260  PRINT  "WHICH  RACE  DO  YOU  WANT  TO  TA 
KE  PART  IN:" 


1270 

1280 

PRINT 

PRINT 

TAB( 

7)"BRITISH 

GRAND 

PRIX 

2650MT 

1290 

:  1" 
PRINT 

TAB( 

7) "GERMAN 

GRAND 

PRIX 

1700MT 

1300 

:  2" 
PRINT 

TAB( 

7)"ITALIAN 

GRAND 

PRIX 

2200MT 

1310 

:  3" 
PRINT 

TAB( 

7)"M0NAC0 

GRAND 

PRIX 

3100MT 

1320 

1330 

:  4" 
PRINT 
PRINT 

TAB( 

7)  "ENTER  A 

NUMBER  (1  TO 

4)" 

1340 

1350 

GET  K$ 
IF  K $ 

<  "1" 

OR  K$  >  "4" 

'  THEN 

1340 

1360  GP  =  VAL  (K$ ) 

1370  PRINT 

1380  PRINT  TAB(  8)"0K,  THE  "; 


238 


Apple  lie 


1390 

IF  GP 

=  1  THEN 

PRINT 

"BRITISH" ; 

1400 

IF  GP 

=  2  THEN 

PRINT 

"GERMAN"; 

1410 

IF  GP 

=  3  THEN 

PRINT 

"ITALIAN"; 

1420 

IF  GP 

=  4  THEN 

PRINT 

"MONACO"; 

1430 

PRINT 

"  RACE" 

1440 

PRINT 

***************************** 

1450 

PRINT 

:  PRINT 

"OVER  HOW  MANY  LAPS?" 

1460 

INPUT 

LAP:  IF 

LAP  <  1 

THEN  1460 

1470 

LAP  = 

INT  (LAP 

+  .5) :L2AP  =  LAP 

1480 

REM  * 

I********:}:******* 

1490 

REM  BRITISH  DATA 

1500 

SP  =  140 

1510 

FOR  X 

=  1  TO  9 

1520 

READ  D(X) :  REM 

DISTANCE  BETWEEN  CO 

RNERS 

1530 

NEXT  X 

1540 

DATA 

800,400,: 

250,200, 

250,300,100,1 

00,250 

1550  FOR  X  =  1  TO  9 

1560  READ  C(X) :  REM  RECOMMENDED  MAXIMUM 
CORNERING  SPEED 
1570  NEXT  X 

1580  DATA  150,90,175,200,200,90,90,150, 
150 

1590  FOR  X  =  1  TO  9 

1600  READ  A ( X ) :  REM  AVERAGE  NUMBER  OF  M 
OVES  ALLOWED  BETWEEN  CORNERS 


1610 

NEXT  X 

1620 

DATA  8, 4, 2, 2, 2, 2, 1,1, 2 

1630 

APP  =  800 : WW  =  10:QQ  =  24:RR  = 

2650 

1640 

IF  GP  =  1  THEN  RETURN 

1650 

REM  Sfc  ^  Cfc  S$C  3jc  SjC  :je  5js  3^  :JC  SjC  Sje  3$:  Sfc  SjC  :$C  5jC  5$: 

1660 

REM  GERMAN  DATA 

1670 

SP  =  85 

1680 

FOR  X  =  1  TO  7 

1690 

READ  D(X) 

1700 

NEXT  X 

1710 

DATA  600,200,100,150,250,200, 

,200 

1720 

FOR  X  =  1  TO  7 

1730 

READ  C(X) 

1740 

NEXT  X 

1750 

DATA  90,175,120,90,200,200,175 
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1760  FOR  X  =  1  TO  7 
1770  READ  A(X) 

1780  NEXT  X 

1790  DATA  6, 2, 1,2, 2, 2, 2 

1800  APP  =  600 :WW  =  8:QQ  =  17:RR  =  1700 

1810  IF  GP  =  2  THEN  RETURN 

1820  REM  ************************* 

1830  REM  ITALIAN  DATA 
1840  SP  =  108 
1850  FOR  X  =  1  TO  7 
1860  READ  D(X) 

1870  NEXT  X 

1880  DATA  800,300,100,150,300,350,200 
1890  FOR  X  =  1  TO  7 
1900  READ  C(X) 

1910  NEXT  X 

1920  DATA  120,90,90,150,200,120,150 
1930  FOR  X  =  1  TO  7 
1940  READ  A(X) 

1950  NEXT  X 

1960  DATA  8, 3, 2, 1,3, 3, 2 

1970  APP  -  800 : WW  =  8:QQ  =  22:RR  =  2200 

1980  IF  GP  =  3  THEN  RETURN 

1990  REM  ************************* 

2000  REM  MONACO  DATA 

2010  SP  =  162.5 

2020  FOR  X  =  1  TO  14  . 

2030  READ  D(X) 

2040  NEXT  X 

2050  DATA  400,100,100,300,400,300,150,2 

00,200,200 

2060  DATA  150,150,200,250 
2070  FOR  X  =  1  TO  14 
2080  READ  C(X) 

2090  NEXT  X 

2100  DATA  175,150,175,200,120,200,175,9 
0,175,150 

2110  DATA  150,175,120,150 
2120  FOR  X  -  1  TO  14 
2130  READ  A(X) 

2140  NEXT  X 

2150  DATA  4, 1,1, 3, 4, 3, 1,2, 2, 2 
2160  DATA  1,2, 2, 2 
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2170  APP  =  400 :WW  =  15:QQ  =  30:RR  =  3100 
2180  RETURN 

2190  REM  ************************* 

2200  REM  INITIALIZATION 

2210  HOME 

2220  GOSUB  8020 

2230  DIM  A(14) ,C(14) ,D(14) 

2240  C  =  1 : FP  =  6:PNT  =  0:NC  =  0:CP  =  0: 
2250  AM  =  0 : RP  =  0:APP  =  0 
2260  NUM  =  0:  REM  NUMBER  OF  MOVES 
2270  ENG  =  100:BRAK  =  TO : TRAV  =  0:DIST  = 

0 

2280  EFLAG  =  0 
2290  X  =  0 
2300  RETURN 

2310  REM  ************************* 

2320  REM  DELAY 

2330  FOR  0  =  1  TO  1000:  NEXT  0 

2340  RETURN 

5000  PZ  =  200-.DZ  =  75 

5010  FOR  TL  =  1  TO  3 

5020  GOSUB  8000 

5030  NEXT  TL 

5040  RETURN 

5200  PZ  =  100-.DZ  =  255 

5210  GOSUB  8000 

5220  RETURN 

8000  REM  SOUND  ROUTINE 
8010  POKE  10, PZ:  POKE  11, DZ:  CALL  768:  R 
ETURN 

8020  POKE  768,173:  POKE  769,48:  POKE  770 
,192:  POKE  771,136:  POKE  772,20 
8:  POKE  773,4 

8030  POKE  774,198:  POKE  775,11:  POKE  776 
,240:  POKE  777,8:  POKE  778,202: 

POKE  779,208:  POKE  780,246 
8040  POKE  781,166:  POKE  782,10:  POKE  783 
,76:  POKE  784,0:  POKE  785,3:  POKE 
786,96 

8050  RETURN 
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10  REM  FLIGHT  SIMULATION 
15  REM  APPLE  IIE/IIC  VERSION 
20  RPT  =  0 

30  LD  =  INT  (  RND  (1)  *  360) 

40  DIM  E$ ( 1000) :  REM  THIS  HOLDS  FLIGHT 
RECORD 

50  DIM  A$ ( 7) , C$ ( 7) :  REM  THESE  ARRAYS  HO 
LD  HORIZON  AND  COMPASS  OUTPUT 
60  REM  ***  sf:*****  ***  **:{:>!: 

70  GOSUB  2320:  REM  INITIALIZE 
80  IF  CRASH  =  0  THEN  GOSUB  820:  REM  H 
ORIZON/COMPASS 

90  GOSUB  500:  REM  PRINTOUT 
100  IF  CRASH  =  1  THEN  END 
110  IF  LA  =  1  AND  UFLAG  =  1  THEN  PRINT 
"WELL  DONE.  A  PERFECT  LANDING!! 

END 

120  IF  LA  =  1  AND  UFLAG  =  0  THEN  PRINT 
"YOUR  WHEELS  ARE  UP":  GOSUB  178 
0:  GOTO  90 

130  T  =  AI: STALL  =  0 

140  X$  =  "" : XZ  =  0:XZ  =  PEEK  (  -  16384) 

-  128:  IF  XZ  >  0  THEN  X$  =  CHR$ 

(XZ) 

150  IF  X$  -  "R"  THEN  RPT  =  1:  GOTO  70 
160  IF  RPT  =  1  AND  E$(CL0CK  +  1)  =  ""  TH 
EN  RPT  =  0:  GOTO  140 
170  IF  RPT  =  1  THEN  X$  =  E$(CLOCK  +  1) 
180  IF  X$  =  ""  THEN  140 
185  POKE  -  16368,0 

190  IF  CLOCK  <  999  THEN  E$(CLOCK  +  1)  = 
X$ 

200  IF  TAKEOV  =  1  THEN  EL  =  INT  (EL  + 
RND  (1)  *  2  -  RND  (1)  *  3) 


210 

IF 

AI  <  3  THEN  290 

220 

IF 

X$  =  "Q"  THEN  EL 

=  EL  + 

5 : EFLAG 

5:  IF 

'  EL 

,  >  60  THEN  STALL 

=  1 

230 

IF 

X$  =  "A"  THEN  EL 

=  EL  - 

5 : EFLAG 

-  5: 

IF 

EL  <  -  70  THEN 

STALL 

240 

IF 

STALL  <  >  0  THEN 

GOSUB 

1640 
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250  IF  ALTIMETER  <  1  THEN  290:  REM  PREV 
ENTS  DRAMATIC  TURNS  ON  THE  GROU 
ND 

260  IF  X$  =  "Z"  THEN  WA  =  WA  -  . 5 : ANG  = 
ANG  -6:  IF  WA  <  -  3  THEN  WA  . 

-  3 

270  IF  X$  =  "M"  THEN  WA  =  WA  +  . 5 : ANG  = 
ANG  +6:  IF  WA  >  3  THEN  WA  =  3 
280  ANG  =  INT  (ANG  +  RND  (1)  *  2  -  RND 
(1)  *  2) 

290  IF  X$  =  "  "  THEN  AI  =  AI  +  8.5 

300  IF  X$  =  THEN  AI  =  AI  -  7 

310  AI  =  AI  -  EL  /  5 

320  IF  UFLAG  =  1  THEN  AI  =  AI  -  1.5:FUEL 
=  FUEL  -  .5 

330  IF  AI  <  0  THEN  AI  =  0 

340  IF  AI  >  400  THEN  AI  =  400 

350  IF  X$  =  "1”  AND  UFLAG  =  0  THEN  UFLAG 

=  1:  GOTO  370 

360  IF  X$  =  "1"  AND  UFLAG  =  1  THEN  UFLAG 
=  0 

370  FUEL  =  FUEL  -  (  ABS  (T  -  AI)  /  10)  - 
3.75 

380  IF  FUEL  <  1  THEN  GOSUB  1780 
390  IF  TAKEOV  =  1  THEN  420 
400  IF  EL  >  10  AND  AI  >  45  AND  AI  <  60  A 
ND  UFLAG  =  1  THEN  TAKEOV' =  1 
410  IF  TAKEOV  =  0  THEN  ALTIMETER  =  0:  GO 
TO  450 

420  IF  LA  =  0  AND  AI  <  30  THEN  EL  =  EL  - 
5: ALTIMETER  =  9  *  ALTIMETER  / 

10 

430  ALTIMETER  =  ALTIMETER  +  INT  (((EL  + 
.1)  *  AI)  +  EFLAG  *  AI  /  1000)  / 

80 

440  IF  ALTIMETER  <  300  AND  TAKEOV  =  1  TH 
EN  ALTIMETER  =  ALTIMETER  +  AI  / 

30  +  EL 

450  IF  ALTIMETER  <  0  THEN  GOSUB  1780:  R 
EM  CRASH 

460  REM  CHANGE  NEXT  TWO  LINES  TO  MAKE  I 
T  EASIER  (OR  EVEN  HARDER)  TO  LA 
ND 
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470  IF  ALTIMETER  >  15  AND  AI  >  20  OR  TAK 
EOV  =  0  THEN  80 

480  IF  ABS  (ANG  -  LD)  <  13  OR  ABS  (ANG 
+  360  -  LD)  <  13  THEN  LA  =  1 :  GOTO 
80 

490  REM 

500  REM  PRINTOUT 
510  HOME 

520  PRINT  "  HORIZON";  TAB(  20) "HEADING 

530  EV  =  INT  (EL  /  10) 

540  IF  EV  >  2  THEN  EV  =  2 
550  IF  EV  <  -  2  THEN  EV  =  -  2 
560  IF  EV  <  >0  AND  TAKEOV  =  1  AND  CRAS 
H  =  0  THEN  GOSUB  1920 

570  PRINT  - : - :" 

580  FOR  J  =  1  TO  7 

590  PRINT  ":  ";A$(J)j"  :";C$(J);"  :" 

600  A$(J)  =  "" 

610  NEXT  J 

620  PRINT  ": - :" 

630  DIST  .  DIST  +  ABS  ( (  GOS  (EL))  *  AI) 
/  360 

640  CLOCK  =  CLOCK  +  1 

650  PRINT  " : RANGE  ";  INT  (DIST  *  10)  /  1 
0;":  TIME  ";  INT  (CLOCK)  /  10;" 


660 

670 

"  ;  LD 
PRINT 
PRINT 

|f 

„ 

": AIRSPEED  :  "; 

INT  (AI) 

675 

IF  AI 

<  20  THEN  PRINT 

">":  GOTO  690 

680 

PRINT 

":  ";  LEFT$  (Q$, 

INT  (AI  /  20) 

690 

PRINT 

": ALTIMETER:  "; 

INT  (ALTIMETER 

700 

IF  ANG 

<  0  THEN  PRINT 

TAB(  19)360 

+  ANG; 

"  DEG. 

" 

710  .  IF  ANG  >  =  0  THEN  PRINT  TAB(  19)A 

NG;"  DEG." 

720  MR  =  INT  (ALTIMETER  /  30);  IF  MR  >  2 
0  THEN  MR  =  20 

725  IF  MR  =  0  THEN  PRINT  ">":  GOTO  740 
730  PRINT  ":  ";  LEFT$  (Q$,MR);">" 

740  PRINT  " : FUEL  :  " ;  INT  (FUEL) 
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750  PRINT  LEFT$  (Q$,20  -  INT  (FUE 

L  /  750) ) ; 

760  PRINT  - • " 

770  PRINT  "  :  ELEVATION :  "  ; EL ;  "  :  '* ;  :  GOSUB 
2210:  PRINT  U$ 

780  IF  UFLAG  =  1  THEN  PRINT  " : " ;  TAB(  5 
)">  UNDERCARRIAGE  DOWN  <  : " 

790  IF  UFLAG  =  0  THEN  PRINT  TAB(  6 

)M>  UNDERCARRIAGE  UP  < 

795  IF  CRASH  =  1  THEN  END 
800  RETURN 

810  REM  ************************ 

820  REM  ASSIGN  HORIZON/COMPASS 


830 

OSUB 

IF 

980 

ABS 

( 

INT 

(WA 

+ 

.5))  = 

3 

THEN 

G 

840 

OSUB 

IF 

1070 

ABS 

( 

INT 

(WA 

+ 

•  5))  = 

2 

THEN 

G 

850 

OSUB 

IF 

1160 

ABS 

( 

INT 

(WA 

+ 

.5))  - 

1 

THEN 

G 

860 

50 

IF 

INT 

(WA  + 

.5) 

= 

0  THEN 

GOSUB 

12 

870  REM  NEXT  TWO  LINES  USED  TO  GRADUALL 
Y  STRAIGHTEN  UP  WINGS 
880  IF  WA  >  0  THEN  WA  =  WA  -  .2 
890  IF  WA  <  0  THEN  WA  =  WA  +  .  2 
900  IF  WA  >  .2  THEN  1350 
910  FOR  Z  *  1  TO  7 
920  M$ ( 8  -  Z)  =  A$(Z) 

930  NEXT  Z 

940  FOR  Z  =  1  TO  7 

950  A$(Z )  =  M$(Z) 

960  NEXT  Z 

970  .  GOTO  1350 

980  REM  WA=3  OR  -3 

990  A  $ ( 1 )  =  "  =  " 

1000  A  $ ( 2 )  =  "  —  " 

1010  A$(3)  »  "  ==  '  " 

1020  A$(4)  =  " 

1030  A$ ( 5 )  =  "  «  " 

1040  A$ ( 6 )  =  ,T  == 

1050  A$( 7 )  =  "==  " 

1060  RETURN 

1070  REM  WA=2  OR  WA=-2 
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1080  A  $ ( 1 )  =  "  " 

1090  A$ ( 2 )  =  "  ==  " 

1100  A$ ( 3 )  =  "  ===  " 

1110  A$(4)  =  "  ===  " 

1120  A$ (5 )  =  "  ===  " 

1130  A$ ( 6 )  =  "=== 

1140  A$(7)  =  "  " 

1150  RETURN 

1160  REM  WA=1  OR  WA=-1 
1170  A$(l)  =  "  " 

1180  A  $  C  2 )  =  "  " 

1190  A$ ( 3 )  =  "  =====" 

1200  A$ ( 4 )  =  "  ====== 

1210  A$ ( 5 )  =  "==== 

1220  A$ ( 6)  =  "  " 

1230  A$ ( 7 )  =  "  " 

1240  RETURN 

1250  REM  WA=0 

1260  A  $ ( 1 )  =  "  " 

1270  A  $ ( 2  )  =  "  " 

1280  A$ ( 3)  =  "  " 

1290  A$  (4)  =  "=============='' 

1300  A$(5)  =  "  " 

1310  A$(6)  =  "  " 

1320  A$(7)  =  "  " 

1330  RETURN 

1340  REM  ******************55=** 

1350  REM  ASSIGN  COMPASS  STRINGS 
1360  F2  =  ANG  -  FI 

1370  IF  F2  <  0  THEN  FA  =  INT  ( ( F2  +  375 
)  /  30) 

1380  IF  F2  >  =0  THEN  FA  =  INT  ((F2  + 

15)  /  30) 

1390  IF  FA  =  12  THEN  FA  =  0 
1400  C$(l)  =  "  .N.  " 

1410  IF  FA  =  11  THEN  C$(2)  =  " 

GOTO  1450 

1420  IF  FA  -  0  THEN  C$(2)  =  " 

GOTO  1450 

1430  IF  FA  =  1  THEN  C$(2)  =  "  . 

GOTO  1450 
1440  C$(2)  =  " 
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1450  IF  FA  =  10  THEN  C$(3)  =  "  . @  :  . . " : 
GOTO  1480 

1460  IF  FA  =  2  THEN  C$(3)  =  "  ..  : 

GOTO  1480 

1470  C$ ( 3 )  =  "  . .  : 

1480  IF  FA  =  9  THEN  C$(4)  =  "  W@-X — E" : 
GOTO  1510 

1490  IF  FA  =  3  THEN  C$(4)  =  "  W— X-@E": 
GOTO  1510 

1500  C $ ( 4 )  =  "  W — X--E" 

1510  IF  FA  =  8  THEN  C$(5)  -  "  :  . . " : 

GOTO  1540 

1520  IF  FA  =  4  THEN  C$(5)  =  "  ..  : 

GOTO  1540 

1530  C$ ( 5 )  =  "  ..  :  . 

1540  IF  FA  =  7  THEN  C$(6)  =  " 

GOTO  1580 

1550  IF  FA  =  8  THEN  C$(6)  =  "  . " : 

GOTO  1580 

1560  IF  FA  =  5  THEN  C$(6)  =  "  .  ": 

GOTO  1580 
1570  C$(6)  =  " 

1580  C$(7)  =  "  .S.  " 

1590  IF  ANG  >  360  THEN  ANG  =  ANG  -  360 
1600  F2  =  ANG 

1610  IF  W  >  0  THEN  W  =  W  -  .4 

1620  IF  W  <  0  THEN  W  =  W  +  .4 

1630  RETURN 

1640  REM  STALL/FALL 

1650  IF  STALL  =  -  1  THEN  1710 

1660  FOR  J  =  1  TO  10 

1670  PRINT  TAB(  J)"YOU  HAVE  STALLED!" 

1680  NEXT  J 

1690  AI  =  AI  /  4 

1700  RETURN 

1710  FOR  J  =  1  TO  10 

1720  PRINT  TAB(  J) "UNCONTROLLED  DIVE!!" 
1730  PRINT  TAB(  21  -  J)"PULL  UP!!" 

1740  NEXT  J 

1750  ALTIMETER  =  4  *  ALTIMETER  /  5 
1760  RETURN 

1770  REM  ******************** 
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1780  REM  CRASH 
1790  CRASH  =  1 
1800  ALTIMETER  =  0 

1810  M$  =  "**  *C  R**  A  **  S*  H*  ! ! *" :  RE 
M  25  CHARACTERS  LONG 
1820  FOR  J  =  1  TO  20 
1830  PRINT  TAB(  J) "CRASH!" 

1840  PRINT  TAB(  21  -  J)"CRASH!" 

1850  NEXT  J 

1860  FOR  J  =  1  TO  7 

1870  G  =  INT  (  RND  (1)  *  11)  +  1 

1880  A$( J)  =  MID$  (M$ , G , 14) 

1890  NEXT  j 
1900  RETURN 

1910  REM  ^  ^  ^  ^  *4*  ^  ^  ^  ^  ^  %  *}•  ^  ^  ^ 

1920  REM  ADJUST  HORIZON 

1930  G$  =  "  " :  REM  14  SPACE 

S 

1940  ON  EV  +  3  GOSUB  1960,2020,2070,2080 
,2140 

1950  RETURN 
1960  REM  EV=-2 
1970  FOR  J  =  1  TO  4 
1980  A$ ( J )  =  A$ ( J  +  3) 

1990  NEXT  J 

2000  A$ ( 5 )  =  G$ : A$ (6)  =  G$:A$(J)  =  G$ 

2010  RETURN 
2020  REM  EV=-1 
2030  FOR  J  =  1  TO  6 
2040  A$( J)  =  A$( J  +  1) 

2050  NEXT  J 
2060  A$(7)  =  G$ 

2070  RETURN  :  REM  EV=0 
2080  REM  EV=1 

2090  FOR  J  =  6  TO  1  .STEP  -  1 

2100  A$ ( J  +  1)  =  A$ ( J) 

2110  NEXT  J 
2120  A$ ( 1 )  =  G$ 

2130  RETURN 
2140  REM  EV=2 

2150  FOR  J  =  4  TO  1  STEP  -  1 

2160  A$ ( J  +  3)  =  A$( J) 

2170  NEXT  J 
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2180  A  $ ( 1 )  =  G$ : A$( 2 )  =  G$:A$(3)  =  G$ 
2190  RETURN 

2200  REM  ********************** 

2210  REM  INPUT  INTO  COMMAND  NAME 
9  2  90  TT?fc  =  " - " 


2230 

IF  X$  = 

If  ft 

THEN  U$  =  "THROTTLE  ON" 

2240 

IF  X$  = 

" . " 

THEN  U$  =  "THROTTLE  OFF 

2250 

IF  X$  = 

"Q" 

AND  ALTIMETER  > 

0  THEN 

U$  =  ’ 

'CLIMB" 

2260 

IF  X$  = 

"Q" 

AND  ALTIMETER  = 

0  THEN 

U$  =  ' 

'NOSE  UP" 

2270 

IF  X$  = 

"A" 

THEN  U$  =  "NOSE 

DOWN" 

2280 

IF  X$  = 

"Z" 

THEN  U$  -  "BANK 

LEFT" 

2290 

IF  X$  = 

"M" 

THEN  U$  =  "BANK 

RIGHT" 

2300 

RETURN 

2310 

REM  ********************* 

2320 

REM  INITIALIZATION 

2330 

HOME 

2350 

Q$  =  "  — 

— 

- »'  ; 

:  REM  2 

1  CHARACTERS  IN  STRING 
2360  UFLAG  =  Is  REM  UNDERCARRIAGE  -  1  - 
DOWN,  0  -  UP 

2370  EFLAG  =  0:  REM  CLIMB  RATE 
2380  ANG  =  OrTAKEOV  =  0:LA  =  0 
2390  AI  =  0:  REM  AIRSPEED 
2400  DIST  =  0:  REM  DISTANCE  COVERED  'RAN 
GE' 

2410  ALTIMETER  =  0 

2420  EL  =  0:  REM  ANGLE  OF  ELEVATION 
2430  WA  =  0:  REM  'WING  ANGLE;  USED  IN  HO 
RIZON  PRINTOUT 

2440  FUEL  =  750-.CRASH  =  0:F2  =  0:F1  =  0: 
REM  FOR  DIRECTION  CHANGE/COMPA 
SS  ROUTINE 

2450  CLOCK  =  0:  REM  TIME 
2460  X$  =  "" 

2470  RETURN 
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SPACE  LANDING  SIMULATION  /  Commodore  64  version 

10  REM  SPACE  LANDING  SIMULATION 

20  FLAG=INT (RND (VAL (RIGHT*(TIS, 2) ) ) ) : REM 

RANDOMIZE 

30  REM  ****************************** 

40  REM  SET  STARTING  VALUES 
45  POKE  53280,0: POKE  53281,0 
50  FUEL=200+RND ( 1 ) *40 
60  VELOCITY=RND< l>*20-6 
70  HEIGHT=500-RND(1>*10 
80  PRINT " 

{CLRHWHT}" 

90  PRINT"  FUEL" ; TAB (12) 5 "  VELOC I TY " 5  TAB ( 
24);"  HEIGHT" 

110  REM  MAJOR  CYCLE 
120  GOSUB  430 

130  IF  FUEL<=0  THEN  FUEL=0 : THRUST=0 : GOTO 

170 

140  GET  A* 

150  IF  AS<“0"  OR  AS>"9"  THEN  140 
160  THRUST=VAL < AS) +. 1 
170  FUEL=FUEL- THRUST 
180  FLAG=THRUST-2 
190  THRUST=0 

200  HEIGHT=HEIGHT +VELOC ITY  +  FLAG / 4 
210  VELOC IT Y=VELOC ITY+FLAG 
220  IF  HEIGHT <  =  10  THEN  240 
230  IF  HEIGHTM0  THEN  120 

240  IF  VEL0CITY>-9  AMD  VEL0CITY<5  THEN  2 
90 

250  GOSUB  410 
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260  PR I NT “YOU  HAVE  CRASHED  INTO  THE  SURF 
ACE. . . " 

270  IF  HEIGHTX0  THEM  HEIGHT=-HEIGHT 
280  GOTO  320 

29.0  GOSUB  4000:  PR  I  NT  “YOU  HAVE  LANDED  SAF 
ELY  !  " 

300  PRINT "YOUR  SKILL  RATING  IS” INT < - 1000 
■8-FUEL /  (VELOCITY-HEIGHT)  ) 

310  HEIGHT=0 
320  GOSUB  410 

330  PRINT" FINAL  INSTRUMENT  READINGS  WERE 

340  PRINT"  FUEL " } T AB (12) i "  VELOC ITY " ; TAB 
(24) | "  HEIGHT" 

350  GOSUB  430 
360  GOSUB  410 
370  IF  HEIGHT>=0  THEN  END 

380  PR I NT "NEW  CRATER  ON  MOON" INT (ABS ( 100 
* ( HEIGHT  + . 2) /3)  ) /100"METERS  DEEP!  " 

390  PRINT"  YOUR  SKILL  RATING  IS  "  INT  (  1008- 
FUEL  / (VELOCITY-HEIGHT) ) 

400  END 

410  PRINT" - 


420  RETURN 

430  PR  INT  I  NT  (  1  008-FUEL )  /  1 00  5 

440  PRINT  TAB  (  12)  J -INT  (  1008-VELOCITY)  /  100 

450  IF  HEIGHT>=0  THEN  PRINT  TAB<24)?INT( 

1008HEIGHT) /100 

460  IF  HEIGHT <  0  THEN  PRINT 

470  RETURN 

4000  SID=54272 

4010  FOR  L 1=0  TO  23 

4020  POKE  SID+L 1,0 

4030  NEXT  LI 

4040  POKE  SID+24 , 15 

4050  POKE  SID+5,15 

4060  POKE  SID+6,255 

4070  POKE  SID+4,17 

4080  FOR  L 1=48  TO  220  STEP  .7 

4090  POKE  SID+ 1 , LI 

4100  NEXT  H 
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4110  FOR  LI =28  TO  200 
4120  POKE  STD+ 1 , LI 
4130  NEXT  LI 

4140  FOR  LI =200  TO  28  STEP 
4150  POKE  SID+1 ,  L 1 
4160  NEXT  LI 
4170  POKE  SID+1,0 
4180  RETURN 
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MONTE  CARLO  DEMONSTRATION  /  Commodore  64 
version 

10  RFM  MONTE  CARLO  DEMONSTRATION 
20  GOSUB  370: REM  INITIALISE 

40  REM  MAJOR  CYCLE 
45  PRINT" 

{ CLR  > " 

5.0  GOSUB  1.0.0:  REM  PRINT 

60  IF  P=EP  AND  Q=EQ  THEN  PRI NT : PR INT " DEM 

ONSTRATT.ON  OVER":  END 

70  GOSUB  230: REM  GENERATE  MOVE 

8.0  GOTO  50 

9.0  REM  *************************** 

100  REM  PRINTOUT 
110  A* (P, 0) ="On 
120  M=M  + 1 
130  PRINT" 

{ HOME  J " : PRINT: PRINT 
140  PR I NT" MOVE "M 
150  FOR  X=1  TO  10 
160  FOR  Y=1  TO  1.0 
170  PR I NT A* (X, Y> J “  * J 

180  NEXT  Y 
190  PRINT 
2.00  NEXT  X 
210  RETURN 

230  REM  GENERATE  MOVE 
24.0  AS  f  P, 0) =" .  " 

250  <5=0 

26.0  T=  I  NT  <  RMB  '■  1 )  *4 )  + 1 

270  ON  T  GOSUB  31.0,320,330,340 

280  IF  G=0  THEN  26.0 

290  IF  G=  .l  AND  RND < 1 ) > . 5  THEN  260 
3.00  RETURN 

31©  IF  P>1  THEN  P=P-l:G=G+l: RETURN 
320  IF  P<10  THEM  P=P+ 1 : G=G+ 1 : RETURN 
330  IF  Q > 1  THEM  0=0- 1 : G=G+ 1 : RETURN 
340  IF  0<10  THEM  0=0+ 1 : G=G+ 1 : RETURN 
350  RETURN 

360  REM  ************************** 
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370  REM  INITIALISE 

3S0  POKE  53280,0: POKE  53281 , 0: PRINT " 
CCLR1 ■ 

39.0  X=RND  m,»aL  {RIGHT*  (TIS,  2)  )  )  :  REM 

RANDOMIZE 

400  DIM  A*  <1.0,  1.0) 

410  FOR  X=1  TO  10 
42.0  FOR  Y=1  TO  10 
430  AS (X, Y>  =  M . " 

44.0  NEXT  Y 
450  NEXT  X 
460  PRINT: PRINT 

470  PR I NT” ENTER  FIRST  START  CO-ORDINATE 
(LESS  THAN  10)" 

48.0  INPUT  P 

490  IF  P<1  OR  P>1.0  THEM  4S0 
500  PRINT"ENTER  SECOND  START  CO-ORDINATE 
(LESS  THAN  1.0)" 

510  INPUT  0 

520  IF  ®<1  OR  Q >  1.0  THEM  510 
530  PRINT: PRINT 

540  PR I NT "ENTER  FIRST  END  CO-ORDINATE  (L 
ESS  THAN  10) “ 

550  INPUT  EP 

560  IF  EP< 1  OR  EP >10  THEN  550 

570  PRINT-ENTER  SECOND  END  CO-ORDINATE  ( 

LESS  THAN  1.0)" 

580  INPUT  EG! 

590  IF  EGK1  OR  E0>10  THEN  580 
600  AS(P,Q>="0" 

610  AS  <  EP , EQ ) = " X " 

620  RETURN 
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10  REM  SIMULTANEOUS  EQUATIONS 
20  POKE  53280,0: POKE  53280, 0: PRINT " 

{CL  R}“ 

30  T=RND ' UAL ( R I GHT$ ( T I* , 2 ) ) > : REM 
RANDOMIZE 
40  HS=0 
50  FD=RND ( 0 ' 

60  PRINT: PR I NT "DEC AY  FACTOR  IS"FD 
70  GOSUB  550 
80  PRINT" 

{ CLR } " 

9.0  PRINT:  PRINT 

1.0.0  PR  I  NT"  ENTER  NUMBER  OF  CELL  X  TO 
START  (LESS  THAN  40) » 

110  INPUT  CP:  IF  CP<1  OR  CP >39  THEN  11.0 
12.0  PRINT:  PRINT 

13.0  PR  I  NT  "WE  HAVE  "CP"  X  CELLS" 

140  PRINT: PRINT 

15.0  PR  I.  NT  "ENTER  NUMBER  OF  CELL  Y  TO 
START  (LESS  THAN  40) " 

16.0  INPUT  EP:  IF  EP<  1  OR  EP>39  THEN  16.0 
170  PRINT  " 

{ CLR  J " : PRINT : PRINT "PLEASE  STAND  BY..." 

180  GOSUB  550: PRINT" 

{CLR} " 

190  DA= 1 

2.0.0  IF  CP  >EP/FB  THEN  CP=EP/FD 
210  PRINT" - " 

215  IF  I NT (CP) <0  THEN  CP=0 

216  IF  I NT ( EP ' < 0  THEN  EP=0 
220  PRINT  "TIME  ELAPSED: "DA 
230  PRINT  I NT ( CP ) " CELL  X" 

240  PRINT  I NT (EP) "CELL  Y " 

250  REM  *************** ************ 

26.0  REM  MAJOR  CYCLE 
270  GOSUB  550 
28.0  DA=DA+  1 

290  PRINT" - " 

30.0  PRINT  "TIME  ELAPSED:  "DA 
310  IF  CP>EP/FD  THEM  CP=EP/FD 
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32.0  REM  EQUATIONS  FOLLOW}  MODIFY  PARTS 
OF  THEM  TO  SEE  WHAT  HAPPENS 
330  CP=CP+ < <8*CP-CP*EP/3)*FD> 

340  EP=EP+  <  <8*EP-EP*CP/3)*.0.l  ) 

35.0'  PRINT  INT  (CP)  "CELL  X" 

36®  PRINT  INT (EP) "CELL  Y" 

37.0  IF  EP<  2  OR  CP<2  THEN  4  .1.0 
330  GOSUB  550 
390  GOTO  28.0 

410  IF  DA>HS  THEN  HS=DA 
42.0  PRINT:  PRINT 

43.0  PRINT" YOUR  CELL  CLASH  SIMULATION  SLJR 
VIVED" 

440  PRINT" FOR" DA” TIME  PERIODS.” 

450  PRINT" - 

460  PR I NT "THE  BEST  SURVIVAL  TIME  SO  FAR 
IS"HS 

470  GOSUB  550 

48.0  PRINT" - 

490  PR I NT "DO  YOU  WANT  A  NEW  RUN  <Y  OR  N) 
?" 

5.0.0  GET  A* 

51.0  IF  ASO"Y"  AMD  A*<>“N"  THEN  5.0.0 
520  IF  A*="Y"  THEN  PRINT  " 

{ CLR > " C  GOTO  60 

530  PR  I  NT  "OK"  ‘.PRINT:  PRINT:  END 

54.0  REM  4f*^**^*****-?t****If-*******#* 

550  FOR  J  =  1  TO  200.0:  NEXT 
560  RETURN 
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10  REM  CONWAY’S  LIFE  SIMULATION 
20  REM  DEFINED  INITIAL  COLONY 
30  GQSUB  460: REM  INITIALISE 
40  REM  ************************* 

50  REM  MAJOR  CYCLE 
60  GENERAT I N=GENERATIN+ I 
7.0  GOSUB  290:  REM  PRINTOUT 
80  6OSUB110:REM  EVOLVE 
90  GOTO  6.0 

10.0  REM  ************************ 

110  REM  EVOLVE 
120  FOR  X=2  TO  12 
130  FOR  Y=2  TO  12 
14.0  C=0 

150  IF  A*<X-1, Y-1)="XH  THEN  C=C  +  i 

160  IF  A*  < X -  1 ,  Y >  =  “ X 11  THEN  C=C  +  1 

170  IF  A*<X-i,  Y+1)=,,X”  THEN  C=C  +  1 

180  IF  A33(X,Y-i'=”X"  THEN  C=C  +  i 

19.0  IF  A*(XJY+1)=,,XM  THEN  C=C  +  1 

2.0.0  IF  A$<X+i,  Y-l^-X”  THEN  C=C+1 

21.0  IF  A  3s  fX+l,Y)=MX"  THEN  C  =  C  +  1 

220  IF  AsMX+lfY+l)=,,XB  THEN  C=C  +  1 

23.0  IF  A$(X, Y>="X*  AND  C<  >2  AND  C<  >3  THE 

N  BSMX,  Y>=CHR3M32) 

240  IF  A 33  ( X  ,  Y  )  — "  "  AND  C=3  THEN  BSsCX,  Y)  = 
"X" 

250  NEXT  Y 
260  NEXT  X 
270  RETURN 

230  REM  ************************ 

290  REM  PRINTOUT 
3.00  PRINT" 

{  C  L  R  ’  " 

31.0  PRINT 

32.0  PR  I  NTT  AB  (  4  )  ;  "  GENERAT  I  ON  "  GENERAT  I N 

330  PRINT 

340  FOR  X=2  TO  12 

350  FOR  Y=2  TO  12 

360  A 3s  (  X  ,  Y  )  =B3S  <  X  ,  Y  ) 

370  PRINT  A3p(X,Y); 

380  NEXT  Y 
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39.0  FOR  Y=12  TO  2  STEP  -1 
4.00  PRINT  A<$<X,Y>; 

41.0  NEXT  Y 
420  PRINT 
43.0  NEXT  X 
44.0  RETURN 

460  REM  INITIALISE 

470  POKE  53280,.@:  POKE  53281 ,  .0 :  PR  I  NT  " 
CCLRl {PUR } » 

48.0  B=RND  f  VAL  (RIGHT*  (  T I*,  2 )  )  )  :  REM 
RANDOMIZE 

500  DIM  A35<  13,  13)  ,  BSM  13,  13) 

51.0  PRINT:  PRINT"  PLEASE  STAND  BY... 

520  FOR  X= 1  TO  13 

53.0  PRINT  14-X5 

54.0  FOR  Y=1  TO  13 

550  REM  FILL  ARRAY  WITH  BLANKS 

560  AtMX,  Y)=CHR5U32> 

570  B«s<X,Y'=Asl5(X,Y) 

58.0  NEXT  Y 
590  NEXT  X 

600  READ  D’.IF  D=99  THEM  630 

61.0  READ  E :  ASS  <  D ,  E )  =  "  X  "  :  B$  (  D ,  E )  =  "  X  " 

620  GOTO  600 

63.0  <3ENERATIN=0 

640  RETURN 

650  DATA  5, 5, 5, 9, 6, 6, 6, 8 
660  DATA  7,7 

67.0  DATA  8, 6, 8, 8, 9, 5, 9, 9 
700  DATA  99 
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10.0  REM  ROBOT  LOGO 
110'GOSUB  1730: REM  INITIALISE 
12.0  GOTO  49.0 

130  REM  **************************** 

140  REM 

150  REM 

160  REM 

170  REM 

180  REM 

19.0  REM 

200  REM 

210  REM 

220  REM 

230  REM 

240  REM 

25.0  REM 

260  REM 

27.0  REM 

280  REM 

290  REM 

300  REM 

310  REM 

320  DATA  ',*" 

330  REM  **************************** 

340  REM  I NT  UX,AX 

350  UX=INT (UX+. 5) : AX= INT < AX+ . 5 ) 

360  RETURN 

370  REM  **************************** 
380  REM  PRINT  OUT 

390  PRINT  " 

CCLRJ " 

400  PR  I  NT  "  STEP  "  PSN-"  >  A$ < PSN) : PRINT 

410  FOR  J=1  TO  DEPTH 
420  FOR  K=1  TO  BREATH 
430  PRINT  z$cr,K>; 

440  NEXT  K 
450  PRINT 
460  NEXT  J 
470  RETURN 

480  REM  **************************** 
490  REM  READ  PROGRAM 
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5.0.0  COUNT =COUMT  +  i 
510  READ  AS  ( COUNT  > 

52.0  IF  AS  <  COUNT  )=*■*"  THEN  550 

530  IF  COUNT <20  THEM  500 

54.0  REM  **************************** 

550  REM  EXECUTE  PROGRAM 

560  PSN=0 : REM  PROGRAM  STEP  NUMBER 

570  PSN=PSN+1 

58.0  IF  PSN=21  THEN  580:  REM  END 
590  FLAG=0 
6.0.0  MS=AS  (  PSN ) 

610  IF  MS="*”  THEN  610: REM  END 
62.0  NS=LEFTS  (MS,  2) 

630  IF  NS= " ST "  THEN  560: REM  START  AGAIN 
64.0  IF  NS="PR"  THEN  GOSLIB  38.0:  REM  PRINTO 
UT 

650  IF  NS="FO"  THEM  FLAG= 1 

660  IF  NS= " BA 11  THEN  FLAG=2 

67.0  IF  NS= 11  TLi "  THEN  FLAG=3 

680  IF  NS="HOH  THEN  FLAG=4 

690  IF  NS= " CL ”  THEN  FLAG=5 

700  IF  NS= " GO "  THEN  FLAG=6 

710  IF  NS= ” R A "  THEM  FLAG=7 

720  IF  NS— " RE “  THEN  FLAG=8 

730  IF  NS= “ EM "  THEN  FLAG=9 

740  IF  NS=" FA"  THEN  FLAG=10 

75.0  ON  FLAG  GOSUB  780,94.0,1.00.0,1160,122.0 

,  1260,  1400,  1460,  .1530,  1580 

760  GOTO  570 

770  REM  **************************** 

780  REM  FORWARD 

790  MS=M I DS ( MS , 4 ) 

S00  IF  ASC ( MS) =87  THEN  MS=MIDS (MS, 6) 

810  FS= " F " 

820  NUM=VAL ( MS ) 

830  FOR  E= 1  TO  NUM 

840  IF  UX<1  OR  UX >DEPTH  THEN  880 
85.0  IF  AX<  1  OR  AX>BREATH  THEN  880 
860  ZS(UX,AX)=TS 

880  IF  FS=,,F"  THEM  UX=UX+UP : AX=AX+ AC 
890  IF  FS= 11 B "  THEN  UX=UX-UP:  AX=AX-AC 
900  GOSUB  340 
910  NEXT  E 
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920  RETURN 

930  REM  **************************** 

940  REM  BACK 

950  M35=MIES<M*,4) 

960  IF  ASC(M$>=78  THEM  M*=MI D* < M$ , 3 ) 

970  F*="B" 

980  GOTO  820 

990  REM  **************************** 

1000  REM  TURN 

1010  M*=MIB$<M95,  4) 

1020  IF  ASC(M$>=78  THEM  M$=MI D* ( M$ , 3 ) 
1030  NUM=VAL(MS) 

1040  Y=INT MNUM+17.5) /45> 

1050  IF  Y— 0  OR  Y=3  THEM  RETURN 
1060  FOR  1=1  TO  Y 

1070  IF  UP=-1  AND  AC=0  THEN  AC=l:GOTO  11 
30 

1080  IF  UP=0  AND  AC=1  THEN  UP=l:GOTO  113 
0 

1090  IF  UP=1  AND  AC=0  THEN  AC=-l:GOTO  11 
30 

1100  IF  UP=0  AND  AC=-1  THEN  UP=-l:GOTO  1 
130 

1110  IF  UP=-1  AND  AC=-1  OR  UP=1  AND  AC=1 
THEN  AC=0:GOTO  1130 

1120  IF  UP=-1  AMD  AC= 1  OR  UP=1  AND  AC=-1 
THEN  UP=0 
1130  NEXT  J 
.1140  RETURN 

1150  REM  *************************** 

1160  REM  HOME 

1170  AX=INT <  <  BREATH + .5) /2) 

1180  UX=IMT ( (DEPTH+ . 5) /2) 

1190  up=-i : ac=0:rem  faces  up 

1200  RETURN 

1210  REM  *************************** 

1220  REM  CLEAN 

1230  GOSUB  1870 
1240  RETURN 

1250  REM  ***************-£*********** 

1260  REM  GO  X,Y 

1270  P-0 
1280  P=P+i 


261 


Commodore  64 


1  290 
1  3.00 
1310 
1320 
1330 
1340 
1  350 
1360 
1  37.0 
.1 380 
139.0 
1 400 
1410 
1420 
1430 
1440 
1450 
1460 
147.0 
1480 
1  49.0 
1500 
1510 
1520 
1530 
1540 
1550 
1 56.0 
1570 
1 580 
1590 
.1 600 
1610 
1620 
1630 
1640 
1650 
1  660 
1670 
1680 
1690 
1700 
1710 


IF  1)=”, "  THEN  1320 

IF  PCLENCMSs)  THEN  1280 
RETURN: REM  ERROR 
UX=UAL(MIP*(M$,4,P-1)  ) 

AX=VAL (RIGHT* <MS,LEN<MSO  -PI  ) 
OOSUB  34.0 

IF  UX<1  OR  UX>DEPTH  THEN  1380 
IF  AC <  1  OR  AOBREATH  THEN  1380 
2#  <UX, AX) =RS 
RETURN 

REM  *************************** 
REM  RANDOM 

AX=IMT (RMB < 1 ) *BREATH) 

UX= I NT ( RND ( 1 ) *DEPTH ) 

Z  *  ( UX ,  AX )  =RSs 
RETURN 

REM  *************************** 
REM  REPEAT 

MS=MID*<MSi,4> 

IF  ASC  < MS) =69  THEN  M*=M I D* ( M* , 5 ) 
RECOUNT =VAL <M*) 

MARKER=PSN 

RETURN 

REM  *************************** 

REM  END  REPEAT 

RECOUNT =RECOUNT- 1 

IF  RECOUNT >0  THEN  PSN=MARKER 

RETURN 

REM  *************************** 
REM  FACE 

M93=MIB*<M$,  4) 

IF  ASC < MS >=69  THEN  M*=M ID* ( M* , 3 > 
NUM=VAL  <M*) 

Y=INT( ( NUM+ 17.5) /45>*45 

IF  Y =0  OR  Y=360  THEN  UP=-i:AC=0 

IF  Y=45  THEM  UP=-i:AC=l 

IF  Y=90  THEM  UP=0:AC=1 

IF  Y= 1 35  THEN  UP=i:AC=i 

IF  Y  = 1 80  THEM  UP=1:AC=0 

IF  Y=225  THEN  UP=l:AC=-l 

IF  Y=270  THEN  UP=.0:AC  =  -1 

IF  Y=315  THEN  UP=-i:AC=-l 

RETURN 
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1730  REM  INITIALISE 

1740  POKE  53280,0:  POKE  532S1 ,  .0 :  PRINT  " 
{  C  L  R  1  ” 

1750  J  =RND  < VAL (RIGHTS  < TIS, 2)  )  )  : REM 
RANDOMIZE 

177.0  BREATH=40: REM  CHARACTERS  ACROSS 
1780  DEPTH=24:REM  CHARACTERS  DOWN 
179.0  BREATH=BREATH-1 
1300  DEPT H= DEPTH -3 

1810  UP=-1  :  AC=.0:REM  STARTS  FACING  UP 
1820  DIM  ASM  20):  REM  FOR  ROBOT  PROGRAM 
1830  DIM  Z* (DEPTH, BREATH) : REM  DISPLAY 
1840  T$= " X " : REM  PUT  SYMBOL  HERE  YOU 
WANT  TO  USE  FOR  ROBOT’S  TRAIL 
1850  AX=0:UX=0 

186.0  REM  FILL  ARRAY  WITH  SPACES 
1870  FOR  J=1  TO  DEPTH 
1380  FOR  K=1  TO  BREATH 
1890  ZSKJ,K>=”  " 

1900  NEXT  K 
1910  NEXT  J 
1920  RETURN 
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J  00  REM  POINT-DUTY  ROBOT 
110  GOSUB  1730: REM  INITIALISE 
1  2.0  GOTO  490 

13.0  REM  **************************** 

140  REM 

15.0  REM 

160  REM 

170  REM 

130  REM 

190  REM 

200  REM 

210  REM 

220  REM 

23.0  REM 

240  REM 

250  REM 

260  REM 

270  REM 

28.0  REM 

290  REM 

300  REM 

310  REM 

320  DATA  "■fr" 

330  REM  **************************** 

34.0  REM  I  NT  UX,AX 

350  UX=INT  fLIY+.  5)  :  AX=INT  '  AX+  .  5) 

36.0  RETURN 

48.0  REM  **************************** 
490  REM  READ  PROGRAM 
500  COUNT =COUMT  + 1 
510  READ  AS (COUNT) 

52.0  IF  AS  (COUNT)  =  " *"  THEN  550 

530  IF  COUNT <20  THEN  500 

540  REM  **************************** 

550  REM  EXECUTE  PROGRAM 

560  PSN=0:REM  PROGRAM  STEP  NUMBER 

570  PSN=PSN+1 

580  IF  PSM=2 1  THEN  580: REM  END 
590  FLAS=0 
600  MS=ASfPSN) 

610  IF  M3?= " * "  THEN  610:  REM  END 
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620  NS=LEFTS  (MS,  2) 

630  IF  NS=“ST”  THEN  560: REM  START  AGAIN 

65.0  IF  NS="FO”  THEM  FLAG=1 

660  IF  M*="BA"  THEN  FLAG=2 

670  IF  NS= "  TU"  THEN  FLAG=3 

680  IF  NS= " HO ”  THEN  FLAG=4 

700  IF  NS^'GO"  THEN  FLAG=5 

710  I F „ MS= " RA “  THEM  FLAG=6 

720  IF  M'S— " RE "  THEM  FLAG=7 

730  IF  ,NS="EM"  THEN  FLAG=8 

740  IF  NS— "FA"  THEM  FLAG=9 

750  ON  FLAG  GOSUB  78.0,940,1000,1.160,1260 
,  14.00,  1  460,  1530,  1580 
760  GOTO  570 

770  REM  **************************** 

780  REM  FORWARD 

790  MS=MIBS(MS,4) 

800  IF  ASC  <  MS )  =87  THEN  MS=MIDS ( MS , 6 > 

810  FS=  ■'  F  " 

820  NUM=VAL(MS> 

830  FOR  E— 1  TO  NUM 
840  IF  UX<1  OR  UX 'DEPTH  THEN  88.0 
850  IF  AX< 1  OR  AX >BREATH  THEN  880 
86.0  GOSUB  2000 

880  IF  FS=MF"  THEN  UX=UX+UP: AX=AX+AC 
890  IF  FS=  " B 11  THEN  UX=UX-UP: AX=AX-AC 
900  GOSUB  340 
910  NEXT  E 
920  RETURN 

930  REM  **************************** 

940  REM  BACK 

950  M*=MIBS (MS, 4) 

960  IF  ASC  <  MS ' =75  THEN  MS=MIDS (MS, 3) 

970  FS= " B " 

980  GOTO  820 

1000  REM  TURN 

1.01.0  MS=MIBS  (MS,  4) 

1020  IF  ASC (M«) =78  THEN  MS=MIDS (MS, 3) 
1030  MUM=VAL ( MS ) 

1040  Y=INT( (NUM+11.25) /22.5> 

105.0  IF  Y=0  OR  Y=16  THEN  RETURN 
1060  FOR  3=1  TO  Y 
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1065  IF  UP=-2  AMD  AC=0  OR  UP=2  AMD  AC=2 
THEN  AC=l:GOTO  1130 

1070  IF  UP=-2  AND  AC= 1  THEN  AC=2:G0T0  11 
30 

1075  IF  UP=-2  AND  AC=2  OR  UP=0  AND  AC=-2 
THEN  UP-- l : GOTO  1130 
1080  IF  LJP=-1  AND  AC=2  OR  UP=1  AND  AC  =  -2 
THEN  UP=0:GOTO  1130 

1085  IF  UP=0  AND  AC=2  OR  UP=2  AMD  AC  =  -2 
THEN  UP=l:GOTO  1130 

1090  IF  UP=1  AND  AC=2  THEN  UP=2:GOTO  113 

0 

1095  IF  UP=2  AND  AC=1  THEN  AC=0:GOTO  113 
0 

1100  IF  UP=2  AND  AC=0  THEN  AC=-l:GOTO  11 
30 

1105  IF  UP=2  AND  AC=- 1  THEN  AC=-2:G0T0  1 
130 

1110  IF  UP=- 1  AMD  AC=-2  THEN  UP=-2:G0T0 
1 .1 30 

1115  IF  UP=-2  AND  AC=-2  THEM  AC=-i:GOTO 
1  130 

1120  IF  UP=~2  AND  AC=-1  THEN  AC=0 
.1130  NEXT  J 
1140  RETURN 

1.150  REM  *************************** 

.1160  REM  HOME 

1170  AX— I NT ( < BREATH+ . 5 ) /2 ) 

1180  UX=INT( (DEPTH+.5) /2> 

1190  UP=-2: AC=0:REM  FACES  UP 
1200  RETURN 

1210  REM  *************************** 

1220  REM  CLEAN 

1230  GOSUB  1870 
124.0  RETURN 

1260  REM  GO  X,Y 

1270  P—0 
1280  P=P+1 

.1290  IF  MID$'M$,PJ1)=,I>"  THEN  1320 
1300  IF  P<LEN(M*)  THEN  1280 
1310  RETURN: REM  ERROR 
1320  UX=VAL  (MIDSUM*,  4,  P-1)  ) 
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1330 
1340 
J  35.0 
1 360 
1  370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1  460 
147.0 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
155.0 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1635 
1640 
1645 
165.0 
1655 
1  660 
1665 
167.0 
1675 
1  68.0 
1685 
1  690 


AX=VAL  (RIGHTS  ( M33,  LEN  (M* )  -P>  ) 
C30SUB  340 

IF  L1X<1  OR  UX >DEPTH  THEN  1380 
IF  AC <  1  OR  AOBREATH  THEN  1380 
GOSUB  20.00 
RETURN 

REM  *************************** 

REM  RANDOM 

AX= I NT ( RND < 1 >  *BREATH ) 

UX=IMT (RND ( 1 >*DEPTH> 

GOSUB  2000 
RETURN 

REM  *************************** 
REM  REPEAT 

M*=MID*(MS5,4) 

IF  ASC(M95>=69  THEN  M£=M I D$ ( M$ , 5 ) 
RECOUNT =VAL  1  M3B ) 

MARKER=PSN 

RETURN 

REM  *************************** 
REM  END  REPEAT 

RECOUNT=RECOUNT- 1 
IF  RECOUNT >0  THEN  PSN=MARKER 
RETURN 

REM  *************************** 
REM  FACE 

M*=MID*a  (MS>,  4) 

IF  ASC(M35>=69  THEN  MS5=MID$  ( MS ,  3 > 
NUM=VAL  <M*) 

Y=INT < (NUM+17.5) /45>*45 

IF  Y=0  OR  Y=360  THEN  UP=-2:AC=0 

IF  Y=22.5  THEN  UP=-2:AC=1 

IF  Y=45  THEN  UP=-2:AC=2 

IF  Y=67.5  THEN  UF=-1*.AC=2 

IF  Y =90  THEN  UP=0:AC=2 

IF  Y= 1 1 2. 5  THEN  UF=l:AC=2 

IF  Y= 135  THEN  UP=2:AC=2 

IF  Y= 157.5  THEM  UP=2:AC=1 

IF  Y=180  THEM  UP=2:AC=0 

IF  Y— 202 . 5  THEN  UP=2:AC=-1 

IF  Y=225  THEN  UP=2:AC=-2 

IF  Y=247.5  THEN  UP=l:AC=-2 

IF  Y  =270  THEN  UP=.0:AC=-2 
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1695  IF  Y=292.5  THEN  UP=-l:AC=-2 
1700  IF  Y=315  THEN  UP=-2:AC=-2 
1705  IF  Y=337.5  THEM  UP=-2:AC=-1 
171.0  RETURN 

1720  REM  *************************** 

1730  REM  INITIALISE 
1740  PRINT  ” 

CCLR1 “ 

1750  I =RND < UAL <  R I GHT* <  T I  * ,  2 )  )  )  : REM 
RAND0MI2E 

1770  BREATH=320: REM  CHARACTERS  ACROSS 
1780  DEPTH=200: REM  CHARACTERS  DOWN 
1790  BREATH=BREATH- 1 
1800  DEPTH=DEPTH-3 

1810  UP=-2: AC=0:REM  STARTS  FACING  UP 
1820  DIM  AS<2.0):REM  FOR  ROBOT  PROGRAM 
1830  REM  TURN  ON  HIRES  SCREEN 
1840  BASE=2*4096: POKE  53272 , PEEK ( 53272 ) O 
RS 

1850  POKE  53265, PEEK (53265) 0R32 
1860  REM  SET  SCREEN  TO  CYAN  AND  BLACK 
1870  FOR  I =BASE  TO  BASE+7999 : POKE  1,0: ME 
XT  I 

1880  FOR  I  — 1024  TO  2023: POKE  1, 3: NEXT  I 
1920  RETURN 

2000  REM  ******  SET  A  POINT  ********* 
201.0  ROW=  I  NT  <  UX  /  8  > 

2020  CHAR=INT<AX/8) 

2030  LINE=UXAND7 
2040  BIT =7- < AXAND7 ) 

2050  BYTE=BASE+ROW*320+CHAR*8+LINE 
2060  POKE  BYTE, PEEK (BYTE) OR2'BIT 
2070  RETURN 


CONNECT  FOUR  /  Commodore  64  version 

10  REM  CONNECT  FOUR 
20  REM  A.  W.  PEARSON 

3.0  POKE  53230,0:  POKE  53281 ,0:  PRINT" 
l CLR  > { WHT } " 

40  PRINT 
50  PRINT 

60  PR I NT " CONNECT  FOUR" 

70  PRINT 

80  PRINT  "ENTER  YOUR  MOVE  AS  A  NUMBER  BE 
TWEEN ” 

90  PRINT  "1  AND  8,  ENTER  O  FOR  A  NEW  GAM 
E" 

100  FOR  F=1  TO  1000: NEXT  F 
110  DIM  AS <10, 10> ,B(10,2) 

120  FL.AG=0 

130  REM  CHANGE  NEXT  LINE  FOR  YOUR  OWN 
CHOICE  OF  SYMBOLS  < CS-COMPUTER > 

140  CS= " M " : HS= " 0 " : REM  M  FOR  MACHINE! 

150  FOR  F= 1  TO  8 
160  B  <  F, 1 ) =6 
170  NEXT  F 
180  FOR  F=1  TO  6 
190  FOR  G=1  TO  8 
200  AS ( F , G ) = “ . - 
210  NEXT  G 
220  NEXT  F 

230  REM  ************************** 

240  REM  ACCEPT  HUMAN  MOVE 
250  GQSUB  430 
260  PR I NT: PR I NT” 

{PURJ YOUR  MOVE " 

270  INPUT  A : PR I NT" 

{  WHT>  ■■ ; 

280  IF  A=0  THEN  RUN 

290  IF  A< 1  OR  A >9  THEN  270 

300  L=0 

310  IF  AS <L+1 , A) < >- . "  OR  L=6  THEN  340 

320  L=L+1 

330  GOTO  310 

340  IF  L=0  THEN  270 

350  AS  <  L , A) =HS 
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36.0  B  ( A  ,  1  >  =B  ( A  ,  1  )  -  1 
37.0  GOSUB  430 
3S0  GOSUB  560 
390  GOSUB  430 
400  GOTO  260 

420  REM  PRINT  BOARD 
430  PRINT” 

{ CLR  I " 

44.0  FOR  F=1  TO  6 
450  FOR  G=1  TO  8 
460  PRINT  AS<F,G>; 

470  NEXT  G 

48.0  PRINT 

490  NEXT  F 

5.00  PRINT"  1 2345678" 

510  PRINT 

520  IF  FL.AG=1  THEN  PRINT"  I  HAVE  WON":  END 
530  RETURN 

540  REM  ************************** 

550  REM  COMPUTER  MOVES 
560  PRINT "MY  MOVE..." 

570  MV=0 

580  FOR  F=1  TO  8 

590  B  <  F , 2  >  =0 

600  NEXT  F 

610  FOR  F=1  TO  8 

62.0  FOR  X=-l  TO  1 

630  FOR  Y=- 1  TO  1 

64.0  IF  B  < F ,  1 )  =0  THEN  680 

650  IF  AS (B<F, 1 > +X,F+Y>=" “  OR  AS(B(F,1>+ 
X,F+Y>=" THEN  680 

660  IF  AsS  !  B  (F,  1  >  +X  ,  F+Y)  =HS  THEN  GOSUB  81 

.0 

670  IF  A* <B i F, 1 » +X, F+Y) =C3s  THEN  GOSUB  91 

.0 

680  NEXT  Y 
690  NEXT  X 
700  NEXT  F 
710  P=0 

72.0  FOR  F=  1  TO  8 

730  IF  B  <  F , 2  >  >P  THEN  P=B(F,2):N=F 
740  NEXT  F 
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*750  A*  (B  (N,  1  '  ,N>  =C* 

760  B  <  M, 1 ) =B (N, i)-l 
770  P=0 
780  N=0 
790  RETURN 

800  REM  ************************** 

810  MV=2 
820  M3=MV 

830  IF  AS5(B(F}  1>  +  <X*2>  ,F+<Y*2>  )=HS=  THEN 
MV=MV+10 

840  IF  A* (B (F, 1 ) -X,F-Y) =H*  THEN  MV=MV+20 
850  IF  MVOM1+I.0  THEN  870 

860  IF  ASs<B  <F,  1 )  +  <X*3)  ,F+  <Y*3>  )  =H33  THEN 
MV=MV+ 1000 

870  B(F,2)=B<F,2) +MV 
880  M1=0 
89.0  RETURN 

900  REM  ************************** 

91.0  MV=2 
920  M1=MV 

930  IF  A$<B(F, 1) +(X*2) ,F+(Y*2) ) =C*  THEN 
MV=MV+9 

940  IF  A$(B(F, 1)-X,F-Y)=CS  THEN  MV=MV+20 
950  IF  MVOM1+9  THEN  970 

960  IF  ASMB<F, 1)+<X*3> , F+<Y*3) > =C*  THEN 
MV=MV  +2.000 :  FLAQ=1 
970  B(F,2)=B(F,2)+MV 
980  RETURN 


271 


QUEVEDQ  CHESS  MACHINE  /  Commodore  84  version 


10-  REM  QUEVEDO  CHESS  MACHINE 
20  GOSUB  1510: REM  INITIALISE 
30  GOTO  6.0 

4.0  GOSUB  132.0:  REM  PRINT  BOARD 
50  GOSUB  l  .10:  REM  COMPUTER  MOVES 
6.0  GOSUB  132.0 

70  GOSUB  1120: REM  ACCEPT  HUMAN  MOVE 
80  GOTO  40 
9.0  END 

1.00  REM  ************ 

110  REM  COMPUTER  MOVES 
12.0  IF  QUIT=1  THEN  1.080 
130  W 1 — WK 

150  REM  MOVE  ONE 

16.0  MOVE* I 

170  KM=  I  NT  ( BK  /  .1 0 ) 

180  RM=INT  (R/  1.0) 

.190  IF  ABS(KM-RM)  >3  THEN  330 
2.00  A  (  R )  =46 

210  X=I NT  < BK / 10)  : Y=INT (R/ 10) 

220  IF  X  >Y  THEN  270 

23.0  IF  A  ( R- 10)  <  >46  THEN  270 

240  IF  A <  R- 1 9  > =BK  OR  A<R-21>=BK  OR  A'R-2 

.0 )  =BK  THEN  270 

25.0  IF  A  < R- 1 1  )  =BK  OR  A'R-9)=BK  THEN  270 
260  R=R-10:6OTO  300 

27.0  IF  A ' R+ 1 0 >  <  >46  THEN  A(R)=R:GOTO  330 

230  IF  A ( R+ 19) =BK  OR  A(R+21)=BK  OR  A'R  +  2 

0) =BK  THEN  A<R)=R:GOTO  330 

290  R=R+ 1 0 

300  A  ?  R ) =ASC (  " R"  5 

310  RETURN 

320  REM  ************ 

330  REM  MOVE  TWO 
340  M0VE=2 
350  KM-BK- 10*KM 
360  RM=R-1.0*RM 

370  IF  ABS ( KM-RM ) < 2  THEM  480 
38.0  A  (  R )  =46 

390  IF  R >  1 1  THEN  IF  <A,'R-12)=BK  OR  A(R-2 
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) =RK  OR  A ( R  +  8 ) =BK )  THEM  A(R>=R:GOTO  480 
4.00  IF  R >  1 1  THEN  IF  <A'R-1>=BK  OR  A<R-11 
>  =BK  OR  A(R+9)=BK>  THEN  A(Rl=R:GOTO  480 
410  Y=BK-J.0*INT<BK/10> 

420  Z=R-10*INT(R/10> 

430  IF  (Z=l  OR  Y >Z )  AND  ACR+1)=46  THEN  R 

=R  +  l*.GOTO  450 

440  R=R-1 

450  A (R) =ASC <  "R"  > 

46.0  RETURN 

470  REM  ************ 

4S0  REM  MOVE  THREE 
490  M0VE=3 

5.0.0  VM=WK - 1. 0*1  NT  < WK  /  1 0) 

510  BM=BK-  10*INT  (BK/  1.0) 

52.0  IF  ABS  <  WM-BM  )  <  3  THEN  600 

530  IF  A (WK-1 ) <  >46  OR  A(WK-13)=BK  OR  A(W 

K-2>=BK  OR  A  < WK+8 )  =BK  THEN  61.0 

540  IF  A(WK-U)=BK  OR  A<WK+9)=BK  OR  A  <  WK 

-22)=BK  THEN  610 

550  A ( WK  >  =46 

560  WK=WK-1 

570  A ( WK  '  =ASC ( “ K " > 

590  REM  ************ 

600  REM  MOVES  FOUR,  FIVE  AMD  SIX 
61.0  2= ABS  ( I  NT  (BK  /  10)  ~ INT < WK / 10 )  ) 

620  IF  2=0  THEN  950 

630  IF  2* I NT  <  Z / 2 ) =Z  THEN  790 

640  REM  ************ 

650  REM  MOVE  FOUR 
660  MOVE=4 
670  A  ( R 1 =46 

680  IF  A  1 R- 10 ) <  >46  THEM  720 

690  IF  A ( R-9 ) =BK  OR  A(R~11>=BK  THEM  720 

7.00  IF  A ( R- 1 9 )  =BK  OR  A-'R-21)=BK  OR  A(R-2 

0 } =BK  THEN  720 

710  R=R- 10: GOTO  760 

720  IF  A  ( R+  1.0)  <  >46  THEN  A<R'=R:GOTO  79.0 
730  T.F  A  <  R  +  l 9)  =BK  OR  A(R+21)=BK  OR  A1R  +  2 
0 ) =BK  THEN  A (R> =ASC ( "R" > : GOTO  790 
740  IF  A  <  R+ 1 1 ) =BK  OR,AJR+9)=BK  THEN  A ' R ) 
=ASC ( "R" > : GOTO  790 
75.0  R=R+  1  0 
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760  A  ( R  >  =ASC ( "R" ) 

770  RETURN 

780  REM  ************ 

790  REM  MOVE  FIVE 

800  M0VE=5 

810  J  =  I  NT ( BK / 1 0 ) 

820  K=BK-10*J 
83.0  L=  I  NT  { WK  /  1 .0 ) 

840  M=WK~10*L 

85.0  2=1.0:  IF  J < L.  THEN  Z=-10 

860  X=l:lF  K<M  THEN  X=-l 

870  A  < MK ) =46 

880  W t  =WK 

890  WK=NK+Z+X 

900  G=ABS (WK-BK) 

910  IF  6=1  OR  6=9  OR  0=10  OR  0=11  THEN  W 
K=W1 : A  <  WK>  =75: GOTO  950 
92.0  A  <  WK  >  =ASC  (  ■  K  "  ) 

930  RETURN 

94.0  REM  ************ 

950  REM  MOVE  SIX 
96.0  MOVE— 6 
97.0  A  <  R '  =46 

980  IF  R > 1 1  THEN  IF  A<R-12)=BK  OR  A<R-2> 
=BK  OR  A  ( R+8)  =BK  OR  A(R-l!OR  THEN  1.07.0 
99.0  IF  R  >  1 1  THEN  IF  <A(R-1)=BK  OR  AIR-11 
>=BK  OR  A ( R+9 ) =BK  THEN  1070 
1.0.00  Y=BK-10*INT  (BK/  10) 

1.010  Z=R-10*INT<R/10> 

1020  IF  <2=1  OR  Y >2 )  AND  A<R+1)=46  R=R+1 

-.GOTO  1040 

1.03.0  R=R- 1 

104.0  A  (R>  =ASC  (  "R"  > 

1050  RETURN 

.1060  REM  ************ 

1070  GOSUB  1320 
1080  PRINT: PRINT 

1090  PRINT"!  CONCEDE  TO  THE  MASTER" 

1 1 00  END 

1110  REM  ************ 

1120  REM  ACCEPT  HUMAN  MOVE 
113.0  REM  ENTER  ’0’  TO  SUIT 
114.0  MOVE=0 
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115.0  PRINT"  >>  MOVE  TO  (LETTER,  NO..)"} 

1160  INPUT  OS 

1170  IF  GS="Q"  THEN  1280 

1180  IF  LEN(GS)<>2  THEM  1160 

1190  Z=ASC<©*> 

1200  IF  Z <65  AND  Z>72  THEN  1160 
121.0  X=VAL_  (RIGHTS'  OS,  1)  ) 

1220  IF  X<1  OR  X >8  THEN  1160 

1230  A ( BK ) =46 

1240  BK=10* (Z-64) +X 

1250  IF  A ( BK ) =ASC  < " R " )  THEN  QUIT=1 
1260  A (BK) =ASC < "S" ) 

1270  RETURN 
12S0  PRINT: PRINT 

1290  PR I NT "THANKS  FOR  THE  GAME" 

.1300  END 

1310  REM  ************ 

1320  REM  PRINT  BOARD 
1330  PRINT" 

<CLR> " 

1340  PRINT: PRINT 

1350  IF  MOVE  >.0  THEN  PRINT"  I  USED  MOVE"MO 
VE 

1360  IF  MOVE=0  THEN  PRINT 

1370  PRINT: PRINT 

138.0  PRINT  TAB( 11) } "ABCDEFGH" 

1390  FOR  J=8  TO  1  STEP  -1 
1400  PRINT  TAB'S) } J} 

1410  FOR  K= 10  TO  80  STEP  10 
1420  PRINT  CHRS( A( J+K) ) } 

1430  NEXT  K 
1440  PRINT  J 
1450  NEXT  J 
146.0  PRINT 

1470  PRINT  TAB ( 11 )} "ABCDEFGH" 

1480  PRINT: PRINT 
1490  RETURN 

1510  REM  INITIALISATION 

1520  POKE  53230, 0:POKE  5328 1 , 0 : PR INT " 

{ CLR  > " 

1530  J=RND (VAL (RIGHTS (TIS, 2) ) ) : REM 
RANDOMIZE 
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1540  MOVIE  =0 
1550  QUIT=0 
1560  DIM  A  <  13.0) 

1570  FOR  J=10  TO  80  STEP  10 
1580  FOR  K= 1  TO  8 

1590  A  <  3  +K ) =46: REM  ASCI  I  OF  " .  ' 
16.00  NEXT  K 
16.10  NEXT  J 

1620  REM  **  PLACE  PIECES  ** 
1630  REM  BLACK  KING  -  HUMAN 
1640  BK=INT <RND ( 1 )*3) +1 
1650  BK=10*BK+BK+INT (RND ( 1 > *5 v 
1660  A <BK) =ASC < "K” ) 

1670  REM  WHITE  KING  -  COMPUTER 
1680  WK=INT<RND<l)*4>+4 
1690  WK=i.0*WK  +  WK+INT  (RND  (  1  >*2> 
17.00  IF  WK-BK  THEN  1680 
1710  A <WK) =ASC ( "K" ) 

1.720  REM  WHITE  ROOK  —  COMPUTER 
1730  R=INT(RND< 1)*4) +4 
174.0  R=10*R+R  +  INT(RND(1)*2) 

1750  IF  R=BK  OR  R=WK  THEM  173.0 
1760  IF  ABS  < R-BK )  <  1 2  THEN  173.0 
1770  A ( R  >  =ASC ( *  R " > 

1780  RETURN 
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1.0  REM  WASHINGTON  D.C. 

20  GOSUB  1.1 60:  REM  INITIALISE 

3.0  REM  **************************** 

4©  REM  MAJOR  CYCLE 
50  P=INT <P+ (P*273/ML> > 

60  GOSUB  16.0:  REM  PRINTOUT 
70  GOSUB  510: REM  CALCULATE 
30  REM  MOW  CHECK  END  GAME 
90  GOSUB  710: REM  STANDARD  OF  LIVING 
100  GOSUB  730: REM  INFLATION  RATE 
110  GOSUB  340: REM  UNEMPLOYMENT 
120  IF  GAME=l  THEN  PRINT" 

{  CLR I " : GOTO  890 
130  GOTO  50 

140  REM  *************************** 

150  REM  PRINTOUT 
160  PRINT" 

{CLR ’ { WHT  > " 

170  PRINT  "PRESIDENT  "5  A*;":" 

180  PR I NT " YOUR  ADMINISTRATION  HAS  BEEN  I 
M  POWER  FOR "Y+Z/ 4" YEARS" 

190  PRINT” - 

200  PRINT" - STATE  OF  THE  NATION - 

210  PRINT" - 

220  PRINT " POPULATION ” P 

230  PRINT" MO.  UNEMPLOYED" INT (U> "  " I NT ( 1 

00*U/P) 

240  PR  I  NT  "CURRENT  WAGES  VWO"  INFLATION" 
INT (IP) 

250  PRINT" GOVT.  EXPENDITURE  LAST  QTR.  $M 
"GE 

260  PRINT  "UNEMPLOYMENT  COST  *M"INT(10*G 
U)  /  10 

270  PRINT  "INCOME  FROM  TAXES  «M”INT(10*G 
I  )  /  1  0 

280  PR I NT" BUDGET  SURPLUS (+)/ DEF I C IT (- )  * 
M" INT (BD*10) / 10 


277 


Commodore  64 


290  PRINT " GROSS  DOMESTIC  PRODUCT  SM"INT< 
GDP* 10) / 10 

3.0.0  IF  Y  +  Z / 4 > . 5  THEM  PRI NT “ CHANGE  IN  LIV 
ING  STANDARD  ”5 

3.05  IF  Y+Z/4>.5  THEM  PRI  NT  I  NT  (  <  2*  <  <  RGDP  / 
AGDP)  *100) -1.001  /3)  “ % " 

31.0  PRINT" - - - 

32.0  PR  I  NT  "PUBLIC  INVESTMENT " Y " Q " Z "*M" I NT 
( IV*10>  /  10 

33.0  PRINT" - 

340  PR I NT "OK,  PRESIDENT  " i A* I  " 

350  INPUT  "ENTER  GOVERNMENT  SPENDING  SM" 
;  GE 

36.0  INPUT  " 

C PUR 5 ENTER  COST  OF  WAGES  *M" ;WN 

370  PRINT" IS  YOUR  ADMINISTRATION  IN  FAVO 

R  OF" 

380  PRINT"  IMMIGRATION  THIS  QUARTER  '■  Y / M ) 

7 

{ WHT  J " 

390  GET  X$ 

40.0  IF  X3K>"Y"  AND  > "  N"  THEN  390 

410  PRINT  T  AB  (  20  >  }  ”  OK  ..."  5  X.$ 

420  FOR  H=1  TO  1000: NEXT  H 
43.0  IF  X3K  >  ”  Y "  THEN  RETURN 
440  PRINT  ” 

<  PUR 3  HOW  MANY  IMMIGRANTS  WILL  YOU  ALLOW 
INTO  THE  US" 

450  INPUT  M: PRINT" 

{ PUR  > " ; 

460  IF  M<0  THEN  450 
470  P=P  +  M 
480  RETURN 

49.0  REM  *************************** 

500  REM  CALCULATIONS 
510  CN=CN+ <CN*IP/ 100) 

520  U=P*  <  GE+-  IV)  /  ( C  N*  10)  +P*«  IP/10.00) 

530  GU=U*WN/ML: REM  UNEMPLOYMENT  COST 
540  GI= < < (P-U)*WM*. 4) /ML) : REM  INCOME 
FROM  TAXES 

550  BD=BB+GI -GU-GE : REM  BUDGET  DEFICIT 
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560  AGDP= AGDP* <  I  +  <  I P  / 1000 )  ) 

570  GDP=GE+IV+< <P-U)*WN/ML> 

580  PGDP=GDP*440/AGDP 

590  IP= < CGE+IV) /CM*. 1 + ( WN/WO) / 100) *100 
600  IV=  <CN*67> / < 1P*IP) 

610  WO=WN 

620  2=2+1:  IF  Z >4  THEN  Z=1:Y=Y+1 
630  RETURN 

640  REM  *************************** 

650  REM  CHECK  BUDGET  DEFICIT 
660  IF  BD  > - 1 000  THEN  RETURN 
670  GAME=1 
680  FLAG= 1 
690  RETURN 

700  REM  *************************** 

710  REM  CHECK  STANDARD  OF  LIVING 
720  IF  YC.75  THEM  RETURN 

730  IF  I NT ( i 2* ( { RGDP/ AGDP ) *100) - 100 ) /3) > 

-15  THEM  RETURN 

740  GAME=1 

750  FLAG=2 

760  RETURN 

770  REM  *************************** 

780  REM  CHECK  INFLATION  RATE 
790  IF  IF< 15  THEN  RETURN 
800  GAME= 1 
810  FLAG=3 
820  RETURN 

830  REM  *************************** 

840  REM  CHECK  UNEMPLOYMENT 

850  IF  I NT i U*1 00 / P ) < 1 5  THEN  RETURN 

860  GAME= 1 

870  FLAG=4 

880  RETURN 

890  REM  *************************** 

900  REM  END  OF  THE  GAME 

910  PR I NT " PRES I DENT  " i A$ ; ” ,  YOUR " 

920  PRINT " ADMINISTRATION’ S  POOR  ECONOMIC" 
930  PR I NT "PERFORMANCE  HAS  LED  TO  AN  UN AC 
CEPTABLE" 

940  IF  FLAG=1  THEN  PR I NT " BUDGET  DEFICEt " 
950  IF  FL.AG=2  THEN  PRINT  "DROP  IN  THE  ST  A 
NDARD  OF  LIVING" 
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96.0  IF  FL.AG=3  THEN  PRINT" RISE  IN  THE  INF 
LATION  RATE" 

970  IF  FLAG=4  THEN  PRINT "RISE  IN  UNEMPLO 
YMENT " 

980  PRINT"  AMONG  OTHER  THINGS..." 

990  PRINT" - 

1000  PRINT" THE  LACK  OF  CONFIDENCE  IN  YOU 
R" 

1010  PRINT" ADMINISTRATION  IS  SO  BAD  THER 
E  ARE" 

1.020  PR  I  NT  "CALLS  FOR  YOU  TO  RESIGN... YOU 
STEP" 

1030  PRINT" ASIDE  TO  ALLOW  THE  VICE-PRE8I 
DENT  TO" 

1040  PRINT"  OCCUPY  THE  OVAL  OFFICE 

.1050  FOR  H— 1  TO  1000:  NEXT  H 

1.060  PRINT" - 

1070  PR I NT ” YOU  WERE  PRESIDENT  FOR"Y+(Z*. 
251 "YEARS" 

1.08.0  PRINT" DURING  YOUR  TERM  OF  OFFICE,  T 
HE" 

1090  PR I NT “POPULATION  ROSE  BY“P-3*ML 
1100  PRINT "THE  UNEMPLOYED  RATE  BECAME" IN 
T (U*1000/P> /10"%" 

111.0  PRINT" AND  THE  INFLATION  RATE  BECAME 
" I NT ( IP*1.0> /10”%" 

1120  PRINT "STANDARD  OF  LIVING  CHANGED  BY 
"  I  NT  (  (2  *<  'RGDP/AGDP)  *10.0' -1.00)  /3) 

113.0  PR  I  NT  "AND  THE  BUDGET  SURPLUS/  DEF I C  I 
T  WAS  ®M"INT <BB*10> / 10 

1  14.0  END 

1150  REM  ************************** 

1160  REM  INITIALISE 

1170  POKE  53280,0:  POKE  53281  ,  .0 :  PR  I  NT  " 

{ CLR  3 " 

118.0  H=RND  <VAL<RIGHTS5<T US,  2)  )  )  :  REM 

RANDOMIZE 

1 190  ML=  1 .0.00*1000 

1200  P=3*ML'.REM  POPULATION 

1210  U=P/10:REM  UNEMPLOYMENT 
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1220  IV=236:REM  INVESTMENT 
123.0  GE=118:REM  GOVERNMENT  EXPENDITURE 
1240  GU=0:REM  cost  of  unemployment 
1250  GI =0 : REM  INCOME  FROM  TAXES 
1260  WN=100:REM  new  wages 
1270  WO=  1.0.0:  REM  OLD  WAGES 
1280  IP=5:REM  INFLATION  PERCENT 
1290  GDP=440:REM  GROSS  DOMESTIC  PRODUCT 
1300  AGDP=44.0':REM  EASE  YEAR  GDP 
1310  RGDP=440: REM  REAL  GDP 
1320  CN=354:REM  ECONOMIC  CONSTANT 
' USED  THROUGHOUT  SIMULATION) 

1330  2=i:game=0:flag=0 
134.0  y=.0:rem  year 

1350  PRINT  "ENTER  YOUR  LAST  NAME" 

1360  INPUT  A« 

1370  RETURN 
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10  REM  STOCK  MARKET 

20  POKE  53280,0: POKE  53281 , 0: PRINT" 

{  CL  R}  " 

30  C  =  INT  (RND'VAL  'RIGHT® 'TI3?.,  2)  )  )  )  :  REM 
RANDOM I 7E 

40  DIM  S<5> ,M'5> ,P'5> ,D'5> 

50  S< 1)=. I  .49: 8(2'  =  t. 99: 8(31=2.49:8(4 '=2. 
99: S (5) =3. 49 

60  N  <  1  >  =2.000 :  N  <  2  )  =  1 5.00 :  M  f  3 )  =  1 200 :  N  ( 4 )  =  J  0 
00 : N < 5  > =800 

7.0  BB=265:  TV=  150.0.0:  00=15000:  DAY=1 
80  PRINT: PRINT" 

{PURI ENTER  YOUR  GOAL.  FOR  THIS  SIMULATION 

90  PR  I  NTT  AB  '  8  >  j  "  *  1 6 , 000  TO  *  i  .0.0 , 0.0.0  " 

10.0  INPUT  GAL:  REM  INPUT  GOAL 
110  IF  GAL <160.00  THEM  PRINT  " 

{ WHT  >  TOO  LOW!": GOTO  80 

120  IF  GAL  >1.0.0*  1000  THEM  PRINT  " 

{ WHT  >  TOO  HIGH!" : GOTO  80 

130  REM  ********************* 

140  REM  MAIOR  LOOP 
150  FOR  C=1  TO  5 

160  REM  ADJUST  THE  55  IN  NEXT  LINE  TO 

MODIFY  GAME;  80  VERY  HARD,  30  VERY  EASY 

.170  D'C)=INT'RND<1>*55>+1 

180  P ( C ' = I NT  < RMD ( 1>*(100-D(C> 1 1+1 

19.0  NEXT  C 

200  QOSUB  230 

210  GOTO  460 

220  REM  ****.***************** 

230  REM  PRINTOUT 
240  PRINT" 

{ CLR  > { WHT  > " 

250  PRINT" - 


260  PRINT  "DAY "DAY" 
"  GAL 

270  PRINT" - 
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280  PRINT "COMPANY  NUMBER:" 

290  PRINT  TAB (2)  ; 1 ; TAB (9)  ;  2;  TAB  4. 1 6)  ;3JTA 
B ( 25 )  j  4  j  T AB ( 35 )  ;5 

300  PRINT  "CHANCE  OF  INCREASE  <%>:" 

310  PRINT  TAB ( 2 ) ;  P  <  1  >  j TAB  (9) ;  P  ( 2)  J  T AB ( 1 6 
) ;P<3)  ; TAB (25)  »  P ( 4 )  ; TAB (35)  ;P<5) 

320  PRINT  “CHANCE  OF  DECREASE  (%) : " 

330  PRINT  TAB (2)  } D ( 1 >  ; TAB (9)  ; D (2) 5  TAB « 16 
)  J  D  (  3 )  ; TAB  < 25)  ;D(4>  ; TAB (35) ;D(5) 

340  PR I NT "CURRENT  VALUE  PER  SHARE: " 

350  PRINT  "35"  ;  INT 'S  (  i  >*100)  /  10.0;  TAB  (8)  ;  " 
S"  ;  INT  (S  (21*100)  /  .100; 

360  PRINT  TAB (15) INT (S<3)*100) / 100; 
TAB  (23)  ;  "35"  ;  INT  <S (4)*100)  /  100; 

37.0  PRINT  TAB  (30)  ;  "35“  ;  INT  <  S  ( 4  )  *100)  /100 
380  PRINT " NO .  OF  SHARES  HELD:" 

390  PRINT  TAB  (2)  ;N(J.)  ;TAB<9)  ;N<2)  ;  TAB  (16 
)  j  N (3)  ; TAB ( 25 >  ; N ( 4 )  ; TAB ( 35 ) ; M  <  5 ) 

4.00  PRINT" BANK  3="  INT  1  BB >  “  TOTAL  WORTH  35" 
I  NT  (  .1  00*TV )  /  1 00 

410  PRINT" - 


420  IF  TV>GAL  THEM  PRINT“YOU’VE  HIT  YOUR 
FINANCIAL  GOAL!“:END 
430  RETURN 

440  REM  ********************* 

450  REM  **  SELL  ** 

46.0  PRINT" 

I PURJDO  YOU  WANT  TO  SELL  ANY  SHARES  (Y/M 
)  ?» 

470  GET  A35 

480  IF  A*<  > " Y "  AND  A3s<  >  " N "  THEN  470 
490  IF  A*="N"  THEN  690 
500  GOSUB  23.0 
510  PRINT" 

{WHT5WHICH  ONES  TO  SELL?"; 

520  GET  A35 

530  IF  ASK"  1"  OR  A5=>"5"  THEM  520 
540  C=VAL(AS) 

550  PRINT" 

{ WHT  >  OK  "  C 

560  PRINT" 
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{ PUR }HOW  MANY  OF"C"TO  SELL"; 

570  INPUT  N 

58.0  IF  M  >N  (O'  THEN  PRINT" 

f  WHT  > YOU  DON’T  HAVE  THAT  MANY !": GOTO  570 
590  REM  ********************* 

600  REM  ADJUST  FIGURES  AFTER  SALE 
61.0  BB=BB  +  S(C)*N:REM  ADD  VALUE  TO  BANK 
620  N ( C ' =N < C ’ -N : REM  SUBTRACT  NO.  SOLD 
630  TV=0: REM  SET  TOTAL  WORTH  TO  ZERO 
640  REM  NOW  DETERMINE  CURRENT  WORTH 
650  FOR  C=1  TO  5 
660  TV=TV+N  (C)*S(C) 

670  NEXT  C 

680  TV=TV  +  BB-.REM  ADD  IN  BANK  BALANCE 
690  GOSUB  230 

700  REM  ********************* 

710  REM  **  BUY  ** 

720  PRINT  " 

{PUR} DO  YOU  WANT  TO  BUY  ANY  SHARES  (Y/N) 
2  " 

730  GET  A* 

740  IF  A*<>"Y"  AND  ASK  >"N"  THEN  730 
750  IF  A35="N"  THEN  890 
760  GOSUB  230 
770  PRINT" 

{ PUR ’WHICH  COMPANY  TO  BUY?"; 

780  GET  A* 

790  IF  ASK"1"  OR  A*>"5"  THEM  780 
8.00  C=VAL<ASS3) 

810  PRINT" 

{WHT}  OK " C 
820  PRINT" 

{ PUR } HOW  MANY  OF"C"TO  BUY"; 

830  INPUT  N 

840  IF  N*S  < C ) >BB  THEN  PRINT" 

{WHT1YOU  DON’T  HAVE  ENOUGH  MONEY !": GOTO 
830 

850  REM  ********************* 

860  REM  ADJUST  FIGURES  AFTER  BUY 

870  BB=RB-S  * C ) *N 
880  N  (  C  )  =N  i.  C  •>  +N 
890  TV-0 
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900  FDR  C=1  TO  5 
910  TV=TV+N(C)*S<C) 

920  NEXT  C 
930  TV=TV+BB 
940  GOSUB  230 

95.0  REM  ********************* 

960  REM  MODIFY  ALL  INDICATORS 
97.0  TV=0 

980  FOR  C=1  TO  5 

99.0  K=INT  (RNB  <  1  )  #1.0.0)  +1 

1000  IF  K<P(C)  THEM  S<C>=S<C>*< 1+ (P(C> /I 
000  )  ) 

1 .0 10  K=  I  NT  <  RND  ( 1 )  *  1 0.0 )  + 1 

1020  IF  K<DCC>  THEN  S (C ) =S <C ) / ( 1 + (P (C ) / 1 

0.0.0)  ) 

103.0  TV=TV+  fS(C)*NfC)  ) 

1040  NEXT  C 
105.0  TV=TV+BB 
1060  00=00+1 
1 .07.0  W=  < TV*  1 0.0  /  00 )  - 1 .0.0 
1080  IF  W=0  THEN  W=.l 
109.0  W=W  +  6 

1100  IF  W<  1  THEN  W=1 
111.0  IF  W >  1 5  THEN  W=15 
1120  RESTORE 
113.0  FOR  T=1  TO  W 
1 140  READ  A* 

115.0  NEXT  T 
1160  PRINT 

1  1 7.0  REM  ******************** 

1180  REM  GIVE  RATING,  START  NEW  ROUND 
119.0  PRINT" 

{ WHT J YOUR  RATING  AFTER  THAT  ROUND  OF" 
1200  PRINT" TRADING  IS  *  ■  ;  ASH  "  ’  “ 

121.0  PRINT:  PRINT  " 

{ PUR J  < PRESS  SPACEBAR  TO  CONTINUE  > " 
1220  GET  ZZSHIF  ZZ*<>"  "  THEN  122.0 

1230  DAY=DAY+ 1 
124.0  GOTO  15.0 

125.0  DATA  "HOPELESS"  ,  “VERY,  VERY  POOR" 
1260  DATA  "TERRIBLE" , "AWFUL" , "BAD" 

127.0  DATA  "VERY  ORD I  NARY  ","  AVERAGE  " 
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1280  DATA  "REASONABLE" , "A  LITTLE  ABOVE  A 
VERAGE" 

1290  DATA  "FAIRLY  GOOD GOOD VERY  GOO 
D" 

1300  DATA  "GREAT" , "EXCELLENT" , "SUPERLATI 
VE" 
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10  REM  DETROIT  CITY 

20  GOSUB  164.0:  REM  INITIALISE 

3©  GOTO  110 

40  MT=MT+t 

50  GOSUB  650 

60  IF  TP >200  THEM  1560 

70  PRINT " 

{ CYN5DO  YOU  WANT  TO  RESIGN  f Y/N) VtWHTJ " 
80  GOSUB  1010 

9.0  IF  A$-"Y"  THEN  PRINT"OK,  CHIEF"  :  END 
100  GOSUB  1380 
110  GOSUB  650 

120  FOR  T= 1  TO  1000: NEXT  T 
130  GOSUB  850 

14.0  PRINT"  DO  YOU  WANT  TO  EXPAND  OUTPUT  < 
Y  /  N '  ?  " 

150  GOSUB  1010 

160  IF  A*="Y“  THEN  1080 

170  IF  SF=1  THEN  210 

180  PR I NT" DO  YOU  WANT  TO  SELL  FACTORY  4 
( Y  /  N )  ?  " 

190  GOSUB  1010 

200  IF  A*=,,Y"  THEN  1250 

210  GOSUB  650 

220  INPUT  "HOW  MANY  EMPLOYEES  TO  HIRE " j H 
E 

230  NE=ME+HE:IF  HE>0  THEN  260 

240  INPUT  "HOW  MANY  EMPLOYEES  TO  FIRE" ;H 

E 

250  NE=NE-HE 
260  GOSUB  650 

270  P 1 =AS : REM  SET  PI  EQUAL  TO  OLD  PRICE 
230  INPUT  "WHAT  IS  YOUR  SELLING  PRICE" 5  A 
S 

290  REM  NEXT  LIME  REJECTS  TOO  BIG  A 
CHANGE  IN  SELLING  PRICE 
3 00  IF  ABS (Pl-AS) >2500  THEM  PRINT"TOO  BI 
G  A  CHANGE  FOR  THE  MARKET": GOTO  280 
310  PRINT" 

1 CLR  h " 

320  PR I NT: PR I NT: PR I NT 
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330  MI  =  INT  (RND  <  l)*4000>  +43*100.0:  REM  THIS 
MONTH’S  SALES  BY  INDUSTRY 
340  C=C+i:REM  COUNTS  NUMBER  OF  MONTHS 
350  IF  C  <  3  THEN  470 

360  M=INT  <RND<  l)#i.0+l ) /41REM  INFLATION 
37.0  PRINT" 

C  C  L  R  }  " 

380  PRINT” INFLATION  RATE  THIS  QUARTER  IS 
”  M  “  %  " 

390  PRINT "AVERAGE  WAGES  BILL  WILL  NOW  RI 
SE  TO" 

4.00  AW=  (  AW*M  /  1 00  >  +AW 

410  PRINTTAB  (8)  j  I  NT  (AW)  "  PER  EMPLOYE 
E" 

420  GET  ZZ*: IF  ZZ3K  > " ”  THEM  420 

430  PRINT:PRINTTAB ( 12) ; “ANY  KEY  TO  CONTI 

NUE  " 

440  GET  ZZ*: IF  ZZ«5=” "  THEN  440 
450  FA= <FA*M / 100) +FA 
460  C-.0 

47.0  Y'  1>=NE*15/12:REM  SALES  BASED  ON 
NUMBER  OF  EMPLOYEES 
480  Y  (  2)  =  <  1.00-AS/FA)  -K-MI  /  1.00:  REM  SALES 
BASED  ON  MONTHLY  INDUSTRY  SALES 
490  REM  NEXT  LINE  SETS  LOWEST  FIGURE 

FROM  Y  < 1 '  ,  Y!2),  M'5>  EQUAL  TO  Y(3> 
500  IF  Y'1)<Y(2!  AND  YI1KMI5!  THEN  Y(3) 
= V ' 1 ) : GOTO  540 

510  IF  Y!2KYI1)  AND  Y(2!<M(5!  THEM  Y<3> 
==Y  (2)  :  GOTO  540 
52.0  Y«'3)=M(5) 

530  REM  NEXT  LINES  DETERMINE 
MONTHLY  SALES 

540  IF  ABS(Pl-AS) <501  THEN  Y < 3 > =3 . 6*Y ( 3 ) 

/  3 

550  IF  Y'3)>M'5>  THEN  Y « 3 ) =Y < 3 ) - 1975 : GOT 
O  550 

560  MC=  <MC*M/  10.0)  +MC 

570  EF=Y(3) /M(5)*100:REM  EFFECIENCY  % 

AS  SALES  DIVIDED  BY  TOTAL  OUTPUT 
580  AC=(MC*'ABS'85-EF) /3> /100) +MC : REM 
AVERAGE  COST  PER  VEHICLE 
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590  MP=  (  ( Y  (3)  *  (AS-AC  >  >  -  <NE*AW/  12)  )  :  REM 
MONTHLY  PROFIT 
6 00  MP-INT  (  MP / ! 1 00* 1 000 )  ) 

610  TP=TP+MP/ 10: REM  TOTAL  PROFIT 
IN  MILLIONS 

620  M=0 
630  GOTO  40 

64.0  REM  **************************** 

650  REM  REPORT  PRINTOUT 
660  PRINT" 

{ CLR 1 " 

670  PRINT" INDUSTRY  SALES " M I " IN  MONTH "MT 
680  IF  MT  >0  THEN  PRINT"YOUR  SALES :  " INT ( Y 
( 3 )  > "  ( " INT(Y(3)*1000/MI) /10“%  OF  TOTAL 

690  PRINT" - 

700  PR I NT "YOU  HAVE "NE" EMPLOYEES" 

710  PR I NT "AVERAGE  WAGES  ARE  $"AW 

720  PRINT  "  OR  sfcM"  INT  (AW*NE/ <  100*1000)  /  1 

2) / 10" PER  MONTH" 

730  PRINT" - 

740  IF  MT  =0  THEN  RETURN 

750  PR I NT "AVERAGE  COST  PER  VEHICLE  IS 
INT (AC) 

760  PRINT"  AND  AVERAGE  SELLING  PRICE  IS  35 
" INT (AS) 

770  PR  I  NT  "SO  THE  AVERAGE  PROFIT  IS  $"INT 
(AS-AO 

780  PRINT  “  OR  35M"  INT  (  <AS~AC  >  *Y  (  3)  /  (100*10 
00) ) / 10" PER  MONTH" 

790  PRINT" - 

800  PR I NT "PROF IT  FOR  THE  MONTH  IS  *M"MP/ 

10 

810  PR  I  NT  "8;  TOTAL  PROFIT  TO  DATE  IS  S3M "  I 
NT ( TP*10) / 10 

820  PRINT" - 

830  RETURN 

840  REM  **************************** 
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85.0  REM  MONTH  REPORT 
36.0  PRINT  11 
{  CL-R  I  “ 

870  IF  MT  >0  THEN  PR I NT "YOUR  MONTHLY  SALE 
S  ARE" INT ( Y <  3  >  > 

880  PRINT" - 

89.0  PR  I  NT  “  MAXIMUM  MONTHLY  OUTPUT:" 

9.0.0  PRINT  TAB  (3)  ;  "FACTORY  1 :  "  INT  ( M  ( 1 )  ) 
91.0  PRINT  TAB  (3)  ;  "FACTORY  2:  "  INT  <M  (2)  ) 
920  PRINT  TAB (3) ; "FACTORY  3 : " INT < M < 3 > ) 
930  IF  SF=  1  THEN  960 

940  PRINT  TAB (3) 5 "FACTORY  4 : " INT « M < 4 > > 
950  PRINT" - : - 

96.0  PRINT  "TOTAL  OUTPUT  IS " INT < M < 5 > > 

97.0  PRINT" - - 

980  PRINT  "EFFICIENCY  LEVEL  IS" INT <EF ) "% 

99.0  RETURN 

1.010  REM  GET  REPLIES 
1020  GET  A* 

1030  IF  A*<>"Y"  AND  A*<  > "N"  THEN  1020 
1.040  PRINT  TAB'22>5A9b 
1050  FOR  J=1  TO  500: NEXT  3 
1.06.0  RETURN 

1070  REM  **************************** 
1080  REM  INCREASE  OUTPUT? 

1090  IF  M<4>=0  THEN  X=15'.G0T0  1110 
110.0  X=13 

111.0  PRINT”  IT  WILL  COST  SM"X"  TO  EXPAND" 
112.0  PRINTTAB<8)  i  "OUTPUT  BY  i%“ 

1130  PRINT" - 

1140  PRINT” HOW  MANY  %  DO  YOU  WISH  TO  RAI 
SE  OUTPUT" 

1150  INPUT  EP:IF  EP<0  OREP>100  THEN  1150 

1160  M<5>=0 

117.0  FOR  T  =  I  TO  4 

1180  M  (  T  >  =M  (  T  >  +M  <  T )  -Jf-EP/  1.00 

1190  M (5) =M (5) +M (T) 
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1 200  NEXT  T 

1210  TP=TP~EP*X 

1220  FOR  T  =  1  TO  500: NEXT  T 

123.0  GOTO  170 

1240  REM  **************************** 
1250  REM  SALE  OF  FACTORY  FOUR 
1260  PRINT  "FACTORY  FOUR  IS  VALUED  FOR  S 
ALE  AT  S&M104" 

1270  PR I NT "YOU  CAN’T  REBUY  IT  LATER  IF 
YOU  SELL  IT.  .  .  " 

1280  PR I NT “DO  YOU  WANT  TO  SELL  <Y/N>?" 

1290  GOSUB  1010 

1300  IF  A$>=BN"  THEN  210 

1310  TP=TP+ 1 04 

1320  SF= 1 

1330  M<5>=M<1>+M(2>+M(3) 

1340  M<4>=0 
1350  GOTO  170 

1360  REM  **************************** 

1370  REM  CHECK  ON  LOSSES 

1380  IF  MP >0  THEN  SA=0:GOTO  1480 

1390  SA=SA+ 1 

1400  IF  SA >11  THEN  1420 

1410  GOTO  1480 

1420  PRINT" 

{  CLR  >  11  :  PRINT 

1430  PR I NT "YOU  TUST  MADE  YOUR  TWELTH  MOM 
THLY" 

1440  PRINT " LOSS  IN  A  ROW . . . 

1450  PRIMTTAB  <6)  "YOUR  EMPLOYMENT" 

1460  PRINTTAB (6) ; "IS  HEREBY  TERMINATED!! 

1470  END 

1480  IF  TP >  =  -250  THEN  1350 
1490  PRINT” 

{CLR} " : PRINT 

1500  PRINT “UNDER  YOUR  MANAGEMENT,  THE  CO 
MPANY  HAS" 

1510  PR  I  NT  "  LOST  MORE  THAN  SSM250  !  " 

1520  GOTO  1450 

1530  IF  TP >200  THEN  1570 

1540  RETURN 
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1560  REM  SWEET  SWEET  SUCCESS! ! ! 

157.0  PRINT" 

{ CLR } - : PRINT 

1580  PRINT "WELL  DONE!  THE  COMPANY  HAS  MA 
DE  MORE" 

1590  PRINT"  THAN  3>M200.  YOU’VE  BEEN 
MADE" 

1600  PRINT"  A  MEMBER  OP  THE  BOARD 

1610  FOR  T=1  TO  2.00.0:  NEXT  T 
162.0  END 

163.0  REM  **************************** 
164.0  REM  INITIALISE 

1660  T=RND<VAL (RIGHTS <TI$, 2) > ) : REM 

RANDOMIZE 

167.0  DIM  M<5) ,Y<5) 

1680  NE= 12000: REM  STARTING  NO  EMPLOYEES 
169.0  AW=22995:  REM  STARTING  AVERAGE  WAGE 
1700  AC=I 1100: REM  COST  PRICE/ VEHICLE 
171.0  AS=  12000:  REM  SELLING  PRICE 
1720  MI  =50* 1 .000 :  MC  =  1 0 1 00 
1730  Y  (3)  =1250.0 

1740  MS=25*.  EF=77:  FA=160:  SF=0:  MT=0 
175.0  FOR  J  =  1  TO  5 
1760  READ  M(J) 

177.0  NEXT  J 

1780  POKE  5328.0,0:  POKE  5328 1 ,  .0 *.  RETURN 
1790  DATA  8900,3250,2500,1625,16275 
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5  POKE  53280,  .0:  POKE  53281,0 
10  REM  GRIDIRON 
20  PRINT" 

CCLRJ " 

30  X=RND (VAL (RIGHT# (TI«, 2) ) ) : REM 
RANDOMIZE 
40  GOSUB  70 
50  GOTO  220 

60  REM  *********************** 

70  FOR  X=i  TO  1500: NEXT  X 
80  RETURN 

100  PRINT  A#5SA 
110  PRINT  B#;SB 
120  RETURN 

130  REM  *********************** 

140  IF  Z$=A$  THEN  Z#=B*:  RETURN 
150  Z#=A#:  RETURN 

160  REM  *********************** 

170  GET  ZZ9s:IF  ZZ*<>""  THEN  170 
180  PRINT”  >  PRESS  AMY  KEY  < " 

190  GET  ZZS1IF  ZZ«=" "  THEN  190 
200  PRINT  TAB (20) 5 "OK" : RETURN 

220  REM  INITIALISE 

230  DEF  FNA ( X ) =1 NT ( RND  < 1 ) *X ) + 1 

240  PRINT" 

{WHTJONE  PLAYER  OR  TWO" 

250  INPUT  X 

260  IF  X<1  OR  X >2  THEN  250 

270  IF  X=1  THEN  VC= 1 : A$= "SIL ICON  COWBOYS 
" : GOTO  300 

280  PRINT" WHAT  IS  THE  NAME  OF  THE  HOME  T 
EAM  " 

290  INPUT  A*: IF  A#=""  THEN  290 

300  PRINT "AND  WHAT  IS  THE  NAME  OF  THE  VI 

SITING  TEAM" 

310  INPUT  B*:  IF  B#=""  THEN  310 
315  A $= " 

{  WHT  >  "  +  A*:  B#=  "  {  PUR  y  "  +B95 
320  Z#=A#:NU=35 
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330  PRINT" 

{ CLR  > " 

340  PRINT " THERE  ARE" INT ( 10* ( 60- < W/4) ) ) / 1 
0"NINUTES  TO  SO" 

350  PRINT  TAB<8)|Z*"  TO  KICK  OFF" 

360  PRINT" 

C  WHT  > YOU  ARE  ON  YOUR  OWN"NU" YARD  LINE" 
370  IF  VC=1  AND  Z$=A*  THEN  GOSUB  70:GOTO 
400 

380  PRINT " TO  KICK  OFF - " 

390  GOSUB  170 

400  A=FNA ( 20) +40 

410  PRINT  ZS; "  HAVE..." 

420  FOR  X=1  TO  A 

430  PRINT  TAB(X/3> ; " KICKED" X" YARDS" 

440  NEXT  X 
450  NU=NU+X 
460  GOSUB  70 
470  PRINT  " 

{ PUR >THE  BALL  IS  CAUGHT!" 

480  GOSUB  70 
490  A=FNA  <  30) +10 
500  FOR  X=1  TO  A 

510  PRINT  TAB(X/5) ? "AND  RETURNED " X " YARDS 

520  NEXT  X 

530  NU=ABS ( 100-NU+X) 

540  GOSUB  140 

550  PRINT" - - - 

560  PR I NT "THE  BALL  IS  DOWN  ON" 

570  PRINT  2*} " ’S"NU"YARD  LINE" 

580  IF  Z$=A*  AND  VC=1  THEN  GOSUB  70: GOTO 
600 

590  GOSUB  170 

600  TG=10: D=0: SL=NU 

610  IF  W=60  OR  W= 1 80  THEN  2010 

620  IF  W= 120  THEN  2070 

630  IF  W=240  THEN  2140 

640  PRINT" 

{  C  L  R  }  " 

650  PRINTLEFTtS  (  AS,  6)  5  SAJ  LEFT*  (B*,  6)  5  SB 
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660  PRINT  INT  ( 10# ( 60- ( W/4 ) ) ) / 10 "MINUTES 
TO  GO" 

670  GOSUB  70 

680  PRINT" - 

690  PRINT  Z$"  IN  POSSESSION" 

700  PRINT  T AB ( 4 ) 5  D " DOWN " 

710  PRINT  TAB (4) ! TG"YARDS  TO  GO" 

720  PRINT"- - - - 

730  PR I NT "ST ART  AT" SL“ YARD  LINE" 

740  PR I NT "NOW  ON "NU" YARD  LINE" 

750  PRINT  100-NU" YARDS  TO  TOUCHDOWN" 

760  PRINT" - 

770  PRINT  “ON  THIS  PLAY 

780  IF  ZS=A*  THEN  PRINT  A*| "  CAN":GOTO  8 
00 

790  PRINT  B*;n  CAN" 

800  PRINT "EITHER  1  -  THROW" 

810  PRINT"  2  -  CARRY" 

820  PRINT"  OR  3  -  PUNT" 

830  P=0 

840  IF  A9s=ZS  AND  VC=1  AND  D<3  THEN  P=2:G 
OTO  900 

850  IF  AS=Z33  AND  VC  =  1  AND  TG<7  THEN  P=2: 
GOTO  900 

860  IF  AS3=ZS  AND  VC=1  AND  (100-NU)  <31  TH 
EN  P=3:GOTO  900 

870  IF  A*=Z*  AND  VC=1  THEN  P=l:GOTO  900 

880  GET  KsB:lF  K*K  “  1 "  OR  KS6>"3"  THEN  880 

890  P=VAL (KSU : PRINT  TAB < 10) 5 "OK"P 

900  GOSUB  70 

910  W=W+1 

920  PRINT" 

{  C  L  R  3-  " 

930  PRINT  Z$5" ,  YOUR  QUARTERBACK  HAS" 

940  PR I NTT AB (8) 5 "GOT  THE  BALL" 

950  PRINT" - 

960  PRINT” WAIT  FOR  THE  COUNT,  “ ;Z*J”," 
970  PRINT  TAB (8); "THEN  HIT  ANY  KEY _ " 
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980  GET  ZZsSIIF  ZZ*<>" ”  THEN  980 

990  GOSUB  70 

1000  GOSUB  2200 

1010  IF  E= 1 1  THEN  2340 

1020  PRINT" - 


1030  ON  P  GOTO  1050,1310,1590 

1050  PR I NT “ YOU ’ VE  THROWN ” E*5 "YARDS " 

1060  PRINT" AND  THE  PLAY  IS - " 

1070  A=FNA(8) 

1080  IF  A= 1  THEN  1520 
1090  A=FNA ( E+ 1 ) 

1100  IF  A= 1  THEN  PRINTTAB (20) 5  "  .  .  . COMPLE 
TE " : GOTO  1220 

1110  PRINT  TAB (20);" - INCOMPLETE ": D=D+ 1 

1120  GOSUB  170 

1130  PRINT" - 


1140  IF  D >3  THEN  1160 
1150  GOTO  610 

1160  PR I NT "THAT  WAS  YOUR  4TH  DOWN" 

1170  PRINT" AND  YOU’VE  LOST  POSSESSION! 

1180  d=0:tg=10:nu=abs<100-nu> :sl=nu 

1190  GOSUB  70 
1200  GOSUB  140 
1210  GOTO  610 
1220  GOSUB  170 

1230  NU=NU+  (E-S-5)  :  TG=TG-  <E*5) 

1240  IF  NU > 100  THEN  1800 
1250  IF  TG< 1  THEN  1280 
1260  D=D+i:IF  D >3  THEN  1160 
1270  GOTO  610 
1280  D=0: TG=10: SL=NU 
1290  GOTO  610 

1310  A=FNA (15) 

1320  IF  A=1  THEN  1510 
1330  E=A-5 

1340  IF  E< 0  THEN  1440 
1350  IF  E=0  THEN  E=l:GOTO  1370 
1360  PR I NT "GOOD  SNAP,  PASS  AND  RUN" 
1370  PRINT" YOU’ VE  GAINED “ E " YARDS " 
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1380  GOSUB  170 

1390  tg=tg~e:mu=abs<nu+e> ;d=d+i 

14.00  IF  NU>  1.0.0  THEN  180.0 
1410  IF  TG<  1  THEN  1280 
1420  IF  D >3  THEM  116.0 
1430  GOTO  610 

1440  PR I NT" GREAT  RUNNING  BY  THE  OPPOSITI 
ON  HAS" 

1450  PR I NT" CAUSED  YOU  TO  LOSE " ABS ( E ) " YAR 
DS" 

146.0  TG=TG-E:NU=NU  +  E".D=D+1 
1470  GOSUB  170 
1480  IF  D >3  THEN  1160 
1490  GOTO  610 

1510  PRINT  * BAD  SNAP  ...  YOU ’ VE " 

152.0  PR  I  NT"  FUMBLED AND” 

1530  PRINT "YOU ’ VE  LOST  POSSESSION..." 
1540  NU=1.0.0-NU:  D=0:  TG=10:  SL=NU 

1560  GOSUB  170 
1570  GOTO  460 

158.0  REM  *********************** 

1590  PRINT" NICE  PUNT..." 

1600  PR I NT "YOU’VE  KICKED"E*4" YARDS" 

1610  NU=NU+E*4 

1620  IF  MU >10.0  THEN  1650 

1630  PRINT" - 


1640  GOTO  460 
1650  A=FNA (3) 

1660  IF  A > 1  THEN  1740 

1670  PR I NT "BUT  YOU’VE  MISSED  THE  GOAL ! ! " 
1680  IF  NU-E*4<80  THEN  NU=ABS ( 100- ( NU-E* 
4)>:G0T0  1700 
1690  NU=20 

1700  D=0: TG=10! SL=NU 
1710  GOSUB  140 
172.0  GOSUB  17.0 
1730  GOTO  610 

1740  PRINT" . AND  SCORED!" 

1750  IF  Z*=BS  THEN  SB=SB+3:G0T0  1770 
1760  SA=SA+3 
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1770  GOSUB  100 
1780  GOSUB  170 
1790  NU=35: GOTO  330 
1800  PRINT" 

{ CLR } “ : GOSUB  4000 
1810  FOR  X=1  TO  5 

1820  PRINTTAB<X*2> 5 "TOUCHDOWN! ! ! " 
1830  NEXT  X 

1840  IF  Z43=A93  THEN  SA=SA+6:G0T0  I860 
1850  SB=SB+6 
1860  GOSUB  100 

1870  PR I NT "TO  PLAY  FOR  EXTRA  POINT" 
1880  GOSUB  170 

1890  PRINT" - 


1900  PRINT  "THE  BALL  IS  SNAPPED ... PREPAR 
E  TO  KICK! " 

1910  GOSUB  70 
1920  GOSUB  2200 

1930  IF  E >9  THEN  PRINT"YOU  MISSED” : NU=20 
ZGOTO  1970 

1940  PR I NT "YOU  SCORED _ " : NU=35 

1950  IF  2S=AS6  THEN  SA=SA+l:GOTO  1980 

1960  SB=SB+l:GOTO  1980 

1970  GOSUB  140 

1980  GOSUB  100 

1990  GOSUB  170 

2000  GOTO  330 

2010  FOR  X=1  TO  10 

2020  PRINT  TAB (2*X) } "PERIOD  OVER" 

2030  NEXT  X 

2040  GOSUB  100 

2050  GOSUB  170 

2060  GOTO660 

2070  FOR  X=1  TO  10 

2080  PRINT  TAB ( 2*X) ; "HALF  TIME" 

2090  NEXT  X 
2100  GOSUB  100 
2110  Zse=B$ 

2120  GOSUB  170 

2130  NU=35:W=W+2:GOTO  330 

2140  FOR  X=1  TO  10 

2150  PRINT  TAB (2*X) ; "GAME  OVER" 
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2160  NEXT  X 
2170  GOSUB  100 
2180  END 

2190  REM  *********************** 

2200  E=0:X=10 

2210  IF  ZSs=A*3  AND  VC  =  1  THEN  PRINT"THIS  O 

NE  FOR  ” ;A*:GOTO2290 

2220  E=E+ 1 : X=X- 1 

2230  PRINT  TAB(E);E 

2240  FOR  Y=1  TO  X*l„5 

2250  GET  ZZS:IF  ZZ5K  >  "  "  THEN  Y=X*1.5+1:R 
ETURN 

2260  NEXT  Y 

2270  IF  E=ll  THEN  RETURN 

2280  GOTO  2220 

2290  FOR  E=1  TO  FNA<7>+2 

2300  FOR  J=1  TO  60: NEXT  J 

2310  PRINT  TAB  <E) 5  E 

2320  NEXT  E 

2330  RETURN 

2340  PRINT " TOO  LATE ! “ 

2350  PRINT" YOU’ VE  BEEN  SACKED!" 

2360  E=FNA ( 4 ) 

2370  IF  E— 3  THEN  2430 

2380  PRINT" AND  LOST  FIVE  YARDS!" 

2390  TG=TG+5:D=D+l:NU=NU-5 
2400  GOSUB  170 
2410  IF  D >3  THEN  1160 
2420  GOTO  610 

2430  PR I NT "AND  LOST  POSSESSION!" 

2440  D=0: NU=ABS  < 100-NU  +  5)  : SL=NU : TG= 10 

2450  GOSUB  170 

2460  GOSUB  140 

2470  GOTO  610 

4000  SID=54272 

4010  FOR  L 1 =0  TO  23 

4020  POKE  SID+L 1 , 0 

4030  NEXT  LI 

4040  POKE  SID+24,15 

4050  POKE  SID+5,15 

4060  POKE  SID+6,255 

4070  POKE  SID+4,17 

4080  FOR  L 1 =48  TO  220  STEP  .7 
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4.09.0  POKE  SID+  1  j  L  J. 

4100  NEXT  LI 
4110  FOR  Ll=28  TO  200 
4120  POKE  SID+ 1 , LI 
4130  NEXT  LI 

4140  FOR  LI =200  TO  28  STEP  -1 
4150  POKE  SID+ 1 , LI 
4160  NEXT  LI 
4170  POKE  SID+1,0 
4180  RETURN 


300 


TENNIS  /  Commodore  64  version 

10  REM  TENNIS 

20  POKE  53280,0: POKE  53281 , 0 : PR I NT " 

{  C  L  R 1  “ 

30  D=RND'VAL<RIGHTU5(TIS,2> ) ) : REM 
RANDOMIZE 

40  aa=0:bb=0*.t=0:ka=0 
50  xa=0:  ya=.@  :za=0 

60  XB=0: YB=0: ZB=0 

70  DEF  FNA«X)=INT(RND<H*X>+1 

80  INPUT  “ONE  HUMAN  PLAYER  OR  TWO” ;A 

90  IF  A< 1  OR  A >2  THEN  80 

100  IF  A=1  THEM  A*="BJORNX“ : VC=1 

110  IF  VC=1  THEN  160 

120  PRINT 11  PLEASE  ENTER  SIX-LETTER  NAME*' 
130  INPUT  “NAME  OF  FIRST  PLAYER" 5  A* 

140  IF  LEN(A35)<6  THEN  AS>=A*+CHR5>  <  32 )  :  GOT 
O  140 

150  A$=LEFTs&  (A*,  6> 

160  INPUT  "NAME  OF  SECOND  PLAYER" 5 BS 
170  IF  LEN(B35)<6  THEN  B*=B«  +  CHR$  ( 32 )  :  GOT 
O  170 

180  B*=LEFTS<B*, 6) 

190  S=1 : AA=1 : BB=1 
200  PRINT" 

{ CLR } ” 

205  AS>=" 

{  PUR  V  +  A93 :  B35=  "  {  WHT  >  "  +B« 

210  p$=as:rs=b* 

220  REM  ******************************* 
230  IF  P3>=A9s  THEN  RS=BS 
240  IF  P3S=B3;  THEN  R*=A35 
250  PRINTP35S  "  SERVING" 

260  PR I NT "DO  YOU  WANT  TO  SERVE  1  -  FAST" 
270  PRINT"  OR  2  -  SLOW" 

280  IF  P«=A*  AND  VC=1  AND  SC=0  THEN  KB=1 
:gosub  1720: goto  330 

290  IF  PS=ASi  AND  VC=1  AND  SC=1  THEN  KB=2 

:gosub  1720: goto  330 

300  GET  K« 

310  IF  K$<"1"  OR  K*>"2"  THEN  300 
320  KB=VAL<K$> 
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33.0  PRINT: PRINTTAB<6>  ;  KB;  TAB  (10)  ;  "  >  IT’S 
A  "  ; 

340  IF  KB= 1  THEN  PRINT " FAST " } 

350  IF  KB=2  THEN  PRINT"SLOW” ; 

360  PRINT"  SERVE _ ” 

370  GOSUB  1720 

380  IF  KB=1  THEN  EB=FNA < 3 > : GOTO  400 
390  EB=FNA ( 8 ) 

400  IF  EB= 1  THEN  450 
410  IF  EB=3  AND  SC=0  THEN  520 
420  IF  EB=3  AND  SC=1  THEN  590 
430  GOTO  670 

440  REM  ******************************* 
450  PRINT" 

CCLRJ " : PRINT: GOSUB  4000 

460  PRINT  T AB  ( 8 )  >  " _ ACE _ " 

470  GOSUB  1720 
480  SC=0 

490  IF  P*=A*  THEN  1140 
500  GOTO  1150 

510  REM  ******************************* 
520  PRINT" 

{ CLR  > " :PRINT 

530  PRINT  T AB  (12);"....  OUT 

540  PRINT  TAB (8) .SECOND  SERVE..." 

550  GOSUB  1720 

560  SC=1 

570  GOTO  230 

5S0  REM  ******************************* 
590  PRINT" 

{ CLR  > " : PRINT 

600  PRINT  TAB  (12)  5" - OUT _ *' 

610  PRINT  TAB (8) .DOUBLE  FAULT..." 

620  GOSUB  1720 
630  SC=0 

640  IF  P*=A*  THEN  1150 
650  GOTO  1140 

670  SC=0 
680  PRINT" 

{ CLR  > " :print 

690  GET  22*:  IF  22*0"  "  THEN  690 
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70.0  PR  INTROS  "  j  THE  BALL  IS"  :  PRINT"  IN  YOU 
R  COURT" 

710  PRINT" - " 

720  IF  R*=A*  AND  VC=i  THEN  750 

730  PRINT-HIT  ANY  KEY,  WHEN  YOU  SEE  THE 

ZERO,  TO  RETURN  THE  BALI _ " 

740  GET  ZZ35S  IF  ZZSK>""  THEN  740 
750  X=4*FNA (3) : Y=X 
760  GOSIJB  1720 
770  E=5 

780  PRINTTAB < 2* < 1 1 -E )  )  jE 
790  Y=Y-1 
800  GET  S93 

810  IF  S*<>""  AND  E=0  THEN  890 

820  IF  S$<>""  THEN  990 

830  IF  Y  >0  THEN  790 

840  e=e-i:y=x 

850  IF  E< - i  THEN  990 

860  IF  E=-i  AND  RS=A*  AND  VC  =  1  THEN  890 
870  GOTO  780 

880  IF  KB= 1  THEN  EA=FNA < 2 ) : GOTO  1000 
890  EA=FNA ( 4 ) 

900  IF  E=0  AND  RS=A35  AND  VC=i  THEN  EA=FN 
A  <  8 ) 

910  IF  EA= 1  THEN  940 

920  IF  R55=A$  THEN  RS>=B$:GOTO  670 

930  R$=A*:GOTO  670 

940  PRINTR$5",  YOU’VE  HIT  THE  BALL" 

950  PRINT  TAB  <  8 )  5 " OUT  OF  PLAY..." 

960  GOSUB  1 720 

970  IF  RiS=A*  THEN  R$=B$:GOTO  1150 
980  GOTO  1140 
990  EA=FNA  <  4 ) 

1000  IF  EA= 1  THEN  1070 

1010  PRINT-YOU  MISSED  THE  BALL,  AND - “ 

1020  GOSUB  1720 

1030  PRINT"  IT  WAS  IN... BAD  MISTAKE" 
1040  GOSUB  1720 

1050  IF  R35=A35  THEN  R3>=BSs:G0T0  1140 
1060  GOTO  1140 

1070  PRINT" YOU  MISSED  THE  BALL  AND..." 
1080  GOSIJB  1720 
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1090  PRINT" IT  WAS  OUT... WELL  LEFT" 

1100  GOSUB  1720 

1110  IF  R3>=A3s  THEN  R«=B$:GOTO  1140 
1120  GOTO  1150 

1130  REM  ****************************** 

1140  aa=aa+i:goto  116.0 

1150  BB=BB+ 1 

1160  IF  AA< 5  AND  BB<5  THEN  1230 
1170  IF  ( BB >4  AMD  AA<4>  OR  (BB>4  AND  BB- 
AA> 1 )  THEN  AA=1 : BB=1 : GOTO  1500 
1180  IF  (AA>4  AND  BB<4>  OR  (AA>4  AND  AA- 
BB > 1 )  THEN  AA=l:BB=l: GOTO  1440 
1190  IF  AA >4  AND  AA>BB  THEN  CS= “ ADV ” : D$= 
GOTO  1320 

120.0  IF  BB  >4  AND  BB  >AA  THEN  D$= "  ADV "  :  C*= 
*■ - n:GOTO  1320 

1210  C*= "  ( DEUCE " : DS= "  <  DEUCE " : GOTO  1320 

1220  REM  ****************************** 

1230  RESTORE 

1240  FOR  D=1  TO  AA 

1250  READ  CiS 

1260  NEXT  D 

1270  RESTORE 

1280  FOR  B= 1  TO  BB 

1290  READ  Dti 

1300  NEXT  D 

1310  REM  **********************4******* 
1320  PRINT" 

{ CLR  > ” 

1330  PRINT" - " 

1340  PRINT"  SET  SET  SET*' 

1350  PRINT” - " 

1360  PRINT”  1  23  GAME" 

1370  PRINT  A*?"  ” JXA5"  " ; YAj "  ";ZA;"  " 

;  c$ 

1380  PRINT  B*;  "  "JXB;"  "  f  YB  ?  "  ";ZB;"  " 

;  D* 

1390  PRINT" - " 

1400  GOSUB  1720 
1410  IF  T<  > 1  THEN  230 
1420  END 
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1440  PRINT” 

<  C  L  R  J  " 

1450  PR I NT "GAME  TO  " ; A* 

1460  GOSUB  1720 

1470  IF  S=1  THEN  XA=XA+ 1 : C$= " 0" : DSs= "0"  :  G 
OTO  1560 

1480  IF  S=2  THEN  YA=YA+ 1 : CS>= "0 " : D$= "0 " : G 
OTO  1580 

1490  IF,  8=3  THEN  ZA=ZA+1 :  C$="0"  :  D*=,,0"  :  G 
OTO  1600 
1500  PRINT” 

{ CLR 1 " 

1510  PR I NT” GAME  TO  "  5  BS 
1520  GOSUB  1720 

1530  IF  8=1  THEN  XB=XB+ 1 : CS= "0" : D$= ”0" : G 
OTO  1560 

1540  IF  S=2  THEN  YB=YB+1 :  CS3="0”  :  D*=”0"  :  G 
OTO  1580 

1550  IF  S=3  THEN  ZB=ZB+ 1 : C*= "0 " : DS>= “ 0 " : G 
OTO  1600 

1560  IF  ( XA >5  AND  XB.<5>  OR  <XA<5  AND  XB> 
5 )  THEN  1630 

1570  IF  <  XA  >5  AND  XA-XB>1)  OR  (XA>5  AND 
XB-XA>1)  THEN  1630 

1580  IF  <YA>5  AND  YB<5>  OR  (YA<5  AND  YB > 
5)  THEN  1630 

1590  IF  ( YA>5  AND  YA-YB>1)  OR  <YA>5  AND 
YB-YA>1>  THEN  1630 

1600  IF  <  ZA >5  AND  ZB<5>  OR  <ZA<5  AND  ZB> 
5)  THEN  1680 

1610  IF  ( ZA >5  AND  ZA-ZB>1>  OR  <ZA>5  AND 

ZB-ZA  > 1 )  THEN  1680 

1620  GOTO  1640 

1630  S=S+1 

1640  AA=i : BB= 1 

1650  IF  P35=A33  THEN  RS>=A« :  P35=BS>  S  GOTO  1320 

1660  P*=A$:  R*=B5S:  GOTO  1320 

1670  REM  ****************************** 

1680  T= 1 

1690  GOTO  1320 

1710  REM  DELAY 
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1720  FOR  M=1  TO  1.0.00:  NEXT  M 
1730  RETURN 

1740  DATA  "0" , " 15" , "30" , "40" 

4000  SID=54272 

4.010  FOR  L 1  =0  TO  23 

4020  POKE  SID+L1 s 0 

4030  NEXT  LI 

4040  POKE  SID+24,15 

4050  POKE  SID+5,15 

4060  POKE  SlD+6,255 

4070  POKE  SID+4, 17 

4030  FOR  L 1=48  TO  220  STEP  .7 

4090  POKE  SID+ 1 , LI 

4100  NEXT  LI 

4110  FOR  LI =28  TO  200 

4120  POKE  SID+1,L1 

4130  NEXT  LI 

4140  FOR  LI  =2.00  TO  28  STEP  -1 
4150  POKE  SID+1,L1 
4160  NEXT  LI 
4170  POKE  SID+1,0 
4180  RETURN 
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3.0  REM  GRAND  PR IX 
20  GOSUB  2200*.  REM  INITIALISE 
30  GOSUB  1190: REM  CHOOSE  TRACK 
40  REM  *********************** 

50  REM  MAJOR  LOOP 

60  GOSUB  120: REM  PRINTOUT 

70  GOSUB  280: REM  ACCELERATION/CHECK 

80  GOSUB  450: REM  ENGINE/BRAKES 

90  GOSUB  500: REM  CORNER/POSITION 

100  GOTO  60 

110  REM  *********************** 

120  REM  PRINTOUT 
130  PRINT" 

{  CLR  >  {  PUR  }  11 

140  PR I NT "ENG I ME  TEMPERATURE ” I NT ( ENG* 10) 
/10"C.  (MAX.  200)" 

150  PRINT" BRAKE  TEMPERATURE : " I NT ( BRAK* 10 
)/10"C.  (MAX.  500)" 

160  PRINT"  DISTANCE  COVERED 3 " I NT < D I ST* 10 
) / 10 "METERS " 

170  PRINT"  :  " I NT  <DIST*10 

0/RR) / 100 "LAPS" 

180  PRINT" YOU’ RE  IN  POSITION " INT ( FP ) 

190  PRINT" - - 


200  PRINT"  CURRENT  SPEED: " INT (SPEED* 1 

0) / 10"KPH" 

210  PRINT"  :  " I NT  <  SPEED*5 

.555) /10"METERS  PER  MOVE" 

220  PRINT” - 


230  PRINT ” CORNER  APPROACHING" INT (APP) "ME 
TERS" 

240  PRINT" RECOMMENDED  SPEED : “ C ( C ) " KPH " 
250  PRINT" - 


260  RETURN 

270  REM  *********************** 

280  REM  CHECK  ACCELERATION  AND  FACTORS 
290  GET  XS3:IF  XS><>"Z"  AND  X3s<>"M"  AND  X$ 
<>CHRS<32)  THEN  290 
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30.0  PRINTTAB ( 12) ; "OK" 

310  X=0 

32©  IF  X*=,,M”  THEN  X=SPEED/15 
330  IF  X$=  * 2 ”  THEN  X=-SPEED/15 
340  NUM=NUM+1 : REM  NUMBER  OF  MOVES 
350  SPEED=SPEED+X 
360  IF  SPEED<0  THEN  SPEED=0 
370  TRAV=SPEED*. 5555: REM  DISTANCE 
TRAVELLED 

380  dist=dist+trav:rem  total  distance 

TRAVELLED 

390  ENG=ENG+ (X/2) +.07: IF  ENG <70  THEN  ENG 
=70+RND(l)*8:REM  ENGINE  TEMP 
400  IF  X>0  THEN  BRAK=BRAK*.9:REM  BRAKE 
TEMP  FALLING;  ACCELERATING 
410  IF  X<1  THEN  BRAK=BRAK- (3*X) -RND ( 1 ) *3 

:rem  brake  temp  increasing;  braking 

420  IF  BRAK< 8  THEN  BRAK=8  +  RND ( 1 ) *8 
43.0  PRINT" 

{ WHT >  "  ;  '.RETURN 

440  REM  *********************** 

450  REM  CHECK  ENGINE/BRAKE  TEMP 

460  IF  ENG >200  THEN  PR I NT “YOUR  ENGINE  HA 

S  OVER  HEATED" '.GOTO  830 

470  IF  BRAK >500  THEN  PR I NT "YOUR  BRAKES  H 
AVE  OVERHEATED" : GOTO  830 
480  RETURN 

490  REM  *********************** 

500  REM  CHECK  CORNERING  SPEED 
AND  FIELD  POSITION 
510  APP=APP-TRAV 
520  IF  APP >0  THEN  RETURN 
530  CRASH=0 

540  IF  SPEED>  (C  (0*1  .  125)  THEN  CRASH=l:G 
OTO  690 

550  IF  SPEED  >  (C  <0*1.  1)  THEN  GOTO  690 
560  PNT=PNT  +  100-  (  (C  (0*1 .  1 )  -SPEED)  :  REM 
CORNERING  POINTS 

570  NC=NC+l:REM  NUMBER  OF  CORNERS 
580  CP=96- (PNT/NO : REM  CORNERING 
POSITION 

590  AM=AM+A (O : REM  AVERAGE  NUMBER 
OF  MOVES  ALLOWED 
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600  RP=NUM~AM : REM  RACING  POSITION:  YOUR 
MOVES  MINUS  AVERAGE  MOVES 
610  FP= (CP+RP) /2:REM  FIELD  POSITION  IS 
AVERAGE  OF  CORNER  RACE  POSITIONS 
620  IF  FP< 1  THEN  FP=1 
630  C=C+i 

640  IF  C=WW  THEN  C=l:REM  LAP  OVER 
650  APP=APP  +  D  < C ) 

660  IF  LAP*GQ=AM  THEN  910: REM  RACE  OVER 
670  RETURN 

680  REM  *********************** 

690  REM  CRASHED 
700  PRINT" 

{  C  L  R  1  " 

73.0  PR  I  NT  "  YOU  CORNERED  AT  “  IMT  <  10*SPEED )  / 
10"  KPH 11 

720  PR I NT "AND  THE  MAXIMUM  SPEED  WAS  JUST 
"  C  ( C  ) 

730  GOSUB  2330 

740  PR I NT " YOU  SPIN  OFF  THE  TRACK..." 

750  GOSUB  2330 

760  IF  CRASH=1  THEN  830 

770  PRINT " YOU ’ VE  LOST  20  SECONDS,  BUT  YO 
U’RE  ABLE  TO  REJOIN  THE  RACE" 

780  NUM=NUM+10:SPEED=INT(2*C(C> /3> 

790  PNT =PNT  +  50 
800  GOSUB  2330 
810  GOTO  570 

820  REM  *********************** 

830  PRINT" . AND  CRASH  !!!!!" 

840  PRINT" - 


850  PRINT " YOU  ONLY  COMPLETED " INT < D I ST*10 
) / 10 "METERS. " 

860  PRINT"OR" INT <DIST*100/RR) / 100"LAPS  A 
MD  AT  THAT" 

870  PRINT "STAGE  YOU  WERE  IN  POSITION" INT 

<FP> 

880  PRINT" - 


890  GOTO  1050 
910  REM  RACE  OVER 
920  PRINT" 
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{  CL-R  >  " 

930  EFLAG=1 

940  FOR  X=1  TO  20 

95.0  PRINTTAB(X) ; "WELL  DONE,  ";AS»;"  H" 

960  PRINTTAB (21 -Xl 5 “WELL  DONE,  "JA*?" !!“ 
970  NEXT  X 

980  PRINT" - 


990  PR I NT "YOU  MANAGED  TO  LAST  OUT  THE  FU 
LL  “LAP "LAP  RACE..." 

1000  PRINT" - 


1010  GOSUB  2330 

1020  PRINT" YOU  FINISHED  IN  POSITION" INT < 
FP) 

1030  PRINT" AFTER  STARTING  IN  6TH  POSITIO 
N.  .  .  " 

1040  GOSUB  2330 

1050  PRINT" YOUR  AVERAGE  SPEED  WAS" INT (DI 
ST*180/NUM> / 100 "KPH" 

1060  GOSUB  2330 

1070  IF  RP< 1  THEM  RP=1 

1 .080  IF  CPC1  THEN  CP=1 

1090  PRINT" YOU  WERE" INT (ABS < RP> ) "TH  FAST 
EST  ON  THE  STRAIGHTS, " 

1100  PRINT" AND" INT (ABS (CP) ) " TH  FASTEST  O 
N  THE  CORNERS." 

1110  PRINT'.  PR  I  NT  "PRESS  ’S’  FOR  SAME  RACE 
,  ’N’  FOR  MEW  RACE,  ’  E’  TO  END" 

1120  GET  I*: IF  I*<>"S"  AND  I*<>"N"  AND  I 

*<>"E"  THEN  1120 

1130  IF  I$="E"  THEN  END 

1140  GOSUB  2240 

1150  RESTORE 

1160  IF  135=  "S"  THEN  GOSUB  1490 ’.  LAP=L2AP : 
GOTO  60 

1170  IF  I35=»N“  THEN  PRINT" 

{CLRJ " : GOSUB  1250: GOTO  60 

1180  REM  ************************ 

1190  REM  NAME  AND  TRACK  DATA 
1200  INPUT*  "WHAT  IS  YOUR  NAME,  DRIVER"  5  A 
$ 

1210  PRINT 
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1220  FOR  X  = 1  TO  3 

123.0  PRINT  TAB(X*4> ; "OK,  GOOD  LUCK,  "  ;  A* 
1240  GOSUB  2330: NEXT  X 

1 250  PR I NT ” ***************************** 
*********" 

1260  PR I NT "WHICH  RACE  DO  YOU  WANT  TO  TAK 
E  PART  IN: " 

1270  PRINT 

128.0  PRINT  TAB<7)  5  "BRITISH  GRAND  PRIX  26 
50NT  :  1  " 

1290  PRINT  TAB (7) ; "GERMAN  GRAND  PRIX  17 
00MT  : 2 " 

1300  PRINT  TAB(7) ITALIAN  GRAND  PRIX  22 
00MT  : 3" 

1310  PRINT  TAB (7) J "MONACO  GRAND  PRIX  31 
00MT  : 4 " 

1320  PRINT 

1330  PRINT  TAB ( 7) ; "ENTER  A  NUMBER  (1  TO 
4)  ■ 

1340  GET  K43 

1350  IF  KSK"1"  OR  K93>"4"  THEN  1340 
1360  GP=VAL<K$> 

1 370  PR I NT " ***************************** 
********* ” 

1380  PRINT  TAB ( 8 ) j ” OK ,  THE  "5 
1390  IF  GP= 1  THEN  PRINT" BRITISH" ; 

1400  IF  GP=2  THEN  PRINT"GERMAN" 5 
1410  IF  GP=3  THEN  PRINT" ITALIAN" 5 
1420  IF  GP=4  THEM  PRINT"MONACO" 5 
1430  PRINT"  RACE" 

1440  PRINT” ***************************** 
*********" 


1450  PRINT: PRINT"OVER  HOW  MANY  LAPS?" 
1460  INPUT  LAP: IF  LAP< 1  THEN  1460 
1470  LAP=INT (LAP+.5) :L2AP=LAP 

1490  REM  BRITISH  DATA 
1500  SPEED= 1 40 
1510  FOR  X=1  TO  9 

1520  READ  D(X):REM  DISTANCE  BETWEEN 
CORNERS 

1530  NEXT  X 
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1540  DATA  800 , 400 ,250,200,2 50 , 300 ,100,10 
0,  250 

1550  FOR  X=i  TO  9 
1560  READ  C<X> 

1570  NEXT  X 

1580  DATA  150,90,175,200,200,90,90,150,1 
50 

1590  FOR  X=1  TO  9 

1600  READ  A  ( X )  : REM  AVERAGE  NUMBER  OF 
MOVES  ALLOWED  BETWEEN  CORNERS 
1610  NEXT  X 

1620  DATA  8, 4, 2, 2, 2, 2, 1,1,2 
1630  APP=800:  WW=10:<3S=24:  RR=2650 
1640  IF  GP=i  THEN  RETURN 
1650  REM  ************************ 

1660  REM  GERMAN  DATA 
1670  SPEED=85 
1680  FOR  X=i  TO  7 
1690  READ  D ( X ) 

1700  NEXT  X 

1710  DATA  600 , 200 , 1 00 ,150, 250 , 200 , 200 

1720  FOR  X=1  TO  7 

1730  READ  C<X>:REM  RECOMMENDED 

MAXIMUM  CORNERING  SPEED 

1740  NEXT  X 

1750  DATA  90,175,120,90,200,200,175 
1760  FOR  X=1  TO  7 
1770  READ  A ( X ) 

1780  NEXT  X 

1790  DATA  6,2, 1,2, 2, 2, 2 

1800  APF=600: WW=8: 00=17: RR= 1700 

1810  IF  6P=2  THEN  RETURN 

1820  REM  ************************ 

1830  REM  ITALIAN  DATA 
1840  SPEED=108 
1850  FOR  X=1  TO  7 
1860  READ  D ( X  > 

J  870  NEXT  X 

1 880  DATA  800 , 300 , 100 ,150, 300 , 350 , 200 

1890  FOR  X=i  TO  7 

1900  READ  C<X>:REM  RECOMMENDED 

MAXIMUM  CORNERING  SPEED 

1910  NEXT  X 
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1 92.0  DATA  1 20 ,  90 ,90,150,  200 ,120,1 5.0 
1930  FOR  X=1  TO  7 
1940  READ  A(X) 

1950  NEXT  X 

1960  DATA  8,3,3, 1,3, 3, 2 

1970  APP=800 : WW=S: 00=22 : RR=2200 

1980  IF  GP=3  THEN  RETURN 

2000  REM  MONACO  DATA 
2010  3PEEB= 162 . 5 
2020  FOR  X=1  TO  14 
2030  READ  D(X> 

2040  NEXT  X 

205.0  DATA  400,  100,  100,  300,400,  3.00,  150,20 

0,200,200 

206.0  DATA  150,150,200,25.0 

2070  FOR  X=1  TO  14 

2080  READ  C<X):REM  RECOMMENDED 

MAXIMUM  CORNERING  SPEED 

2090  NEXT  X 

2100  DATA  175,150,175,200,120,200,175,90 
,175,150 

2110  DATA  150,175,120,15.0 
2120  FOR  X= 1  TO  14 
2130  READ  A  ( X ) 

2140  NEXT  X 

2150  DATA  4, 1,1, 3, 4, 3, 1,2, 2, 2 
2160  BATA  1,2, 2, 2 

217.0  APP=400:  WW=15:  QQ=30:  RR=3 100 
2180  RETURN 

2200  REM  INITIALISATION 

2210  POKE  5328.0,0:  POKE  53281 , 0:  PRINT " 

C  CLR } " 

2220  X=RND(VAL(RIGHT*(TI*,2) )  )  :  REM 
RANDOMIZE 

2230  DIM  A C 14) , C ( 14) , D < 14) 

2240  c=i:fp=6:pnt=0:nc=0:cp=0 

2250  AM=.0 :  RP=0 :  APP=0 

2260  NUM=0 : REM  NUMBER  OF  MOVES 

2270  ENG= 1 00 : BR AK= 10 : TR AV=0 : D I ST=0 

2280  EFLAG=0 

2290  X=0 
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2300 

2310 

2320 

2330 

2340 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

40S0 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 


RETURN 

REM  ************************ 
REM  DELAY 

FOR  0=1  TO  1000: NEXT  O 

RETURN 

SID=54272 

FOR  L 1 =0  TO  23 

POKE  SID+L1 , 0 

NEXT  LI 

POKE  SID+24, 15 

POKE  SID+5,15 

POKE  SID+6,255 

POKE  SID+4,17 

FOR  L 1 =48  TO  220  STEP  .7 

POKE  SID+1 ,  LI 

NEXT  LI 

FOR  L1=2S  TO  200 
POKE  SID+1, LI 
NEXT  LI 

FOR  L 1=200  TO  28  STEP  -1 

POKE  SID+1, LI 

NEXT  LI 

POKE  SID+1, 0 

RETURN 
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1.0  REM  FLIGHT  SIMULATION 
20  RPT =0 

30  LD=INT  (  RND  (  1  )  *36.0) 

4.0  DIM  ES>  (  1000)  :  REM  THIS  HOLDS  FLIGHT 
RECORD 

50  DIM  A3=C7>  ,C*(7>  :  REM  THESE  ARRAYS 
HOLD  HORIZON  AND  COMPASS  OUTPUT 
60  REM  ************************** 

70  GOSUB  232.0*.  REM  INITAL. ISE 

80  IF  CRASH=0  THEN  GOSUB  820: REM  HORIZON 

/COMPASS 

90  GOSUB  5.00:  REM  PRINTOUT 
100  IF  CRASH=1  THEN  END 

110  IF  LND=1  AMD  UFLAG=1  THEMGOSUB4000 : P 
R I NT "WELL  DONE.  A  PERFECT  LANDI NG ! " : END 
120  IF  LND=1  AND  UFLAG=0  THEN  PR I NT "YOUR 
WHEELS  ARE  UP" : GOSUB  1780: GOTO  90 
130  T=AIRSPEED:SALL=0 
140  GET  X* 

150  IF  X*="R"  THEN  RPT=i:GOTO  7.0 

160  IF  RPT  =  1  AND  ESE(CL0CK+1  )  =”  "  THEN  RPT 

=0:GOTO  140 

170  IF  RPT  = 1  THEN  X*=E$ ( CLOCK  + 1 ) 

180  IF  X*="  ”  THEM  14.0 

190  IF  CLOCK<  999  THEN  E*  <  CLOCK+  1  )  =XS> 

20.0  IF  TAKEOV=l  THEN  ELEVATE=INT < ELEVATE 
+  RND ( 1 ) *2-RND  < 1 )*3) 

210  IF  A I RSPEED< 3  THEN  290 

22.0  IF  X*="Qn  THEN  ELEVATE=ELEVATE+5 :  EFL 
AG=5: IF  ELEVATE >60  THEM  SALL=1 
230  IF  X$="A"  THEN  ELEVATE=ELEVATE-5 : EFL 
AG=-5 : I F  ELEVATE< -70  THEM  SALL=-1 
240  IF  SALLO0  THEN  GOSUB  1640 
250  IF  ALT I METER< 1  THEN  290:REM  PREVENTS 
DRAMATIC  TURNS  ON  THE  GROUND 
260  IF  X*="Z"  THEN  WA=WA- .  5:  ANG=ANG-6  *.  IF 
WA<-3  THEN  WA=-3 

270  IF  X*="M"  THEN  WA=WA+ . 5: ANG=ANG+6: IF 
WA  >3  THEN  WA=3 

28.0  ANG— I  NT  <  ANG+RND  (  1 )  *2-RND  <  1 )  *2  ) 
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290  IF  X$=CHR3s<32>  THEN  A I RSPEED=A I RSPEE 
D  +  8.  5 

300  IF  X$>="  .  "  THEN  AIRSPEED=AIRSPEED-7 
3 1 .0  A  I  RSPEED=A  IRSPEED-ELEVATE  /  5 
320  IF  UFLAG=i  THEN  AIRSPEED-AIRSPEED- 1 . 
51 FUEL=FUEL- . 5 

330  IF  AIRSPEED<0  THEM  AIRSPEED=0 
34.0  IF  AIRSPEED >400  THEN  AIRSPEED=400 
350  IF  X$=’T'  AND  UFLAG=0  THEN  UFLAG=  1  :  G 
OTO  370 

360  IF  X4=“l"  AND  UFLAG= 1  THEM  UFL AG=0 
370  FUEL=FUEL_-  (ABS  (T-AIRSPEED)  /10>  -3.75 
380  IF  FUEL< 1  THEN  GOSUB  1780 
390  IF  TAKEOV=l  THEN  420 

400  IF  ELEVATE >10  AND  AIRSPEED>45  AND  AI 
RSPEED<  60  AND  UFL AG= 1  THEN  TAKEOV=l 
410  IF  TAKEOV=0  THEN  ALT IMETER=0 : GOTO  45 

0 

420  IF  LND=0  AND  AIRSPEED<30  THEN  ELEVAT 
E=ELEVATE~5:  ALTIMETER=9*AL.T  IMETER  /  10 
430  ALTIMETER=ALTIMETER+INT (  (  <  ELEVATE+  .  .1 
>*AIRSPEED> +EFLAG*AIRSPEED/1000> /80 
440  IF  ALTIMETER <300  AND  TAKEOV=l  THEN  A 
LT IMETER=ALTIMETER+ AIRSPEED/ 30+ELEVATE 
450  IF  ALTIMETERS©  THEN  GOSUB  178.0:  REM 
CRASH 

46©  REM  CHANGE  NEXT  TWO  LINES  TO  MAKE  IT 
EASIER  ( OR  EVEN  HARDER)  TO  LAND 
470  IF  ALTIMETER>15  AND  AIRSPEED>20  OR  T 
AKEOV=0  THEN  80 

480  IF  ABS < ANG-LD) < 13  OR  ABS  (  ANG  +  36.0-LD ) 
<13  THEN  LND=i:GOTO  80 
485  GOTO  80 

49.0  REM  ************************* 

500  REM  PRINTOUT 
510  PRINT” 

{ CLR  > " 

52.0  PRINT”  HORIZON” 5  TAB (20)  5  "HEADING" 
530  EV=I NT (ELEVATE/ 10) 

540  IF  EV >2  THEN  EV=2 
55.0  IF  EV<  -2  THEN  EV=-2 

560  IF  EV< >0  AND  TAKEOV=l  AND  CRASH=0  TH 
EN  GOSUB  1920 
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57.0  PRINT  ” : - : - :  '■ 

580  FOR  J=1  TO  7 

59.0  PRINT":  "  ;A«(3);a  :  "jesMJ)  ;  "  :  " 

600  A*  <  J >  = " " 

610  NEXT  J 

62.0  PRINT  "  : - - :  " 

630  DIST=DIST+ABS ( ( COS ( ELEVATE ) >*AIRSPEE 
D ) / 360 

640  CLOCK=CLOCK+1 

650  PRINT" : RANGE" INT (DIST*10) / 10"  :  TIME" 

INT (CLOCK) /10; " : "LD 

660  PRINT  ”  : - :  " 

670  PRINT" : AIRSPEED  INT « AIRSPEED > 

680  PRINT" : " j  LEFT^MQ*, INT  < A IRSPEED/ 20 )  )  ; 

"  >” 

690  PRINT" : ALTIMETER: " INT ( ALT IMETER ) 5 
700  IF  ANG<0  THEN  PRINTTAB ( 19) J 360+ANG”D 
EG.  " 

710  IF  ANG>=0  THEN  PRINTTAB < 19 ); ANG " DEG . 

720  MR=INT (ALTIMETER/30) : IF  MR>20  THEN  M 
R=20 

730  PRINT"  :  "  5  LEFTS*  <Q3>,  MR)  5  "  >  " 

740  PRINT" : FUEL  :" I NT (FUEL) 

750  PRINT"  :  "  5  LEFTSMQS,  INT  (FUEL /45)  )  ;  "  >  ” 

760  PRINT  "  : - :  " 

770  PRINT" :ELEVATION: "ELEVATE" :  " 5 : GOSUB 

2210: PR I MTU* 

780  IF  UFLAG=1  THEN  PRINT  " : " ; TAB ( 5 ) ; " > 
UNDERCARRIAGE  DOWN  <  : " 

790  IF  UFLAG=0  THEN  PRINT  " : " ; TAB ( 6 ) 5 " > 
UNDERCARRIAGE  UP  <  :“ 

800  RETURN 

810  REM  ************************* 

820  REM  ASSIGN  HORIZON/COMPASS 
830  IF  ABS  <  INT  ( WA  +  .  5 )  )  =3  THEM  GOSUB  93.0 
840  IF  ABS ( INT ( WA+ . 5 ) ) =2  THEN  GOSUB  1070 
850  IF  ABS < INT ( WA+. 5) ) =1  THEN  GOSUB  1160 
860  IF  I NT ( WA+ . 5 ) =0  THEN  GOSUB  1250 
370  REM  NEXT  TWO  LINES  USED  TO 
GRADUALLY  STRAIGHTEN  UP  WINGS 
880  IF  WA  >0  THEN  WA=WA-.2 
890  IF  W A < 0  THEN  WA=WA+.2 

317 


Commodore  64 


900  IF  WA > . 2  THEN  1350 
910  FOR  Z=1  TO  7 
920  MS<8-Z>=AS<Z> 

930  NEXT  Z 

940  FOR  Z=i  TO  7 

950  MS(Z)=AS(Z> 

960  NEXT  Z 

970  GOTO  1350 

980  REM  WA=3  OR  -3 

990  AS  < 1 >  = "  *  " 

1000  A* (2)=”  ** 

1010  A* (3)="  ** 

1020  AS'4>="  ** 

1030  A* (5)="  ** 

1040  AS (6)="  ** 

1050  AS (7)="** 

1060  RETURN 

1070  REM  WA=2  OR  -2 

1080  AS  < 1 ) = " 

1090  AS (2)=”  **  " 

1100  AS  (3)='*  *** 

1110  AS (4)="  *** 

1120  AS  <  5 ) - "  *** 

1130  AS<6>="*** 

1 1 40  AS ( 7 ) = ■ 

1150  RETURN 

1160  REM  WA=1  OR  -1 

1 1 70  AS  < 1 ) = " 

1 1 80  AS ( 2 ) = " 

1190  AS (3)="  ***** " 

1 200  AS  < 4 ) = “  ****** 

1210  AS  (  5 }  =  ’’**** 

1220  AS (  6  )  =  " 

1230  AS (7)=" 

1240  RETURN 
1250  REM  WA— 0 
1260  AS ( 1  )  =  " 

1270  AS (2)=" 

1280  AS  <  3 ) = " 

1290  AS ( 4 ) = “ ************** " 
1 300  AS ( 5 ) = " 

1310  AS (6)=" 

1320  AS (  7  )  =  “ 
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1330  RETURN 

1340  REM  ************************ 

135.0  REM  ASSIGN  COMPASS  STRINGS 
1360  F2= ANG-F 1 
1365  F2=ANG 

1370  IF  F2< 0  THEM  FA=INT  <  (F2+375) /30) 
1380  IF  F2>=0  THEN  FA=INT < <F2+ 15) /30) 
139.0  IF  FA=  1 2  THEN  FA=0 
1400  C*(l)="  .N. 

1410  IF  FA= 1 1  THEM  C«(2)=”  .  " : GOTO 


142.0  IF  FA=0  THEN  C*<2>="  ..0..  "  :  GOTO 

1450 

1430  IF  FA= 1  THEN  C*(2)="  .  .  :  @  .  " : GOTO 

1450 

1440  C* (2) ="  . . : . .  " 

1450  IF  FA= 10  THEN  CS(3)="  .0  :  . . " : GOTO 

1480 

1460  IF  FA=2  THEN  C*(3)="  ..  :  0.” : GOTO 

1480 

147.0  C$<3>  =”  .  .  *. 

1480  IF  FA=9  THEN  CSK4>="  WS-X — E" : GOTO 
1510 

1490  IF  FA=3  THEN  C$<4)=="  W  —  X-@E"  :  GOTO 
1510 

1500  C®(4)="  W — X — E " 

151.0  IF  FA=8  THEN  CSM5>="  .0  :  .  .  "  :  GOTO 

1540 

1520  IF  FA=4  THEN  CsM5>=”  .  .  :  @ " : GOTO 

1540 

153.0  C$(5>="  .  .  : 

1540  IF  FA=7  THEN  C*'6>="  :  GOTO 

1580 

1550  IF  FA=6  THEN  C*<6)=M  " : GOTO 

1580 

156.0  IF  FA=5  THEN  C*(6)="  "-.GOTO 

1580 

1570  C^(6)="  . . : . .  " 

1580  CS><7)  =  ”  .S. 

159.0  IF  ANG >360  THEN  ANG=AMG-360 
1600  F2=ANG 

161.0  IF  W>0  THEN  W=W-.4 
1620  IF  W<0  THEN  W=W+.4 
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163.0 
1640 
1 650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1 770 
1780 
1790 
1800 
181.0 

1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1 900 
1910 
1920 
1930 
1940 
140 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 


RETURN 

REM  STALL/FALL 
IF  SALL=-1  THEM  1710 
FOR  J=1  TO  10 

PRINTTAB ( J) ; "YOU  HAVE  STALLED!!" 
NEXT  J 

A I RSPEED= AIRSPEED/ 4 
RETURN 

FOR  J  =  1  TO  10 

PRINTTAB <J> j "UNCONTROLLED  DIVE! ! » 
PRINTTAB <21-J> ; "PULL  UP!!" 

NEXT  3 

ALTIMETER=ALTIMETER/4 

RETURN 

REM  ************************ 

REM  CRASH 
CRASH=1 
ALT IMETER=0 

MS= " **  *C  R**  A  **  S*  H*  ! !*":REM 
25  CHARACTERS  LONG 
FOR  J=1  TO  20 
PRINTTAB (J) ! "CRASH! " 

PRINTTAB < 21 -J) ; "CRASH! " 

NEXT  3 

FOR  J  =  1  TO  7 

G= I NT  < RND  < 1 ) *1 1 ) + 1 

AS< J ) =MIDS (MS, G, 14) 

NEXT  J 
RETURN 

REM  ************************ 

REM  ADJUST  HORIZON 

<3$="  "  :REM  14  SPACES 

ON  EV+3  GOSUB  1960,2020,2070,2080,2 

RETURN 
REM  EV=-2 
FOR  J=1  TO  4 
AS ( J ) =AS ( J+3> 

NEXT  J 

AS  (5) =GS: AS  (6) =GS: AS  (7) =  GS 

RETURN 

REM  EV=- 1 

FOR  J=1  TO  6 
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2040  AS  <  3  )  =AS  (  J  +  l  ) 

205.0  NEXT  3 

2060  AS  <  7  )  =GS 

2070  RETURN: REM  EV=0 

2080  REM  EV=1 

2090  FOR  J=6  TO  1  STEP  -1 

2 1 00  AS  < J  +  1 > =AS  <  J ) 

2110  NEXT  J 

2120  AS(1)=GS 

2130  RETURN 

2140  REM  EV=2 

2150  FOR  3  =4  TO  1  STEP  -1 

2160  AS<  J+3)=AS<  J) 

2170  NEXT  J 

2180  AS  < 1 >  =GS : AS  <  2  >  =GS : AS ( 3  >  =GS 
2190  RETURN 

2200  REM  ************************ 

2210  REM  INPUT  INTO  COMMAND  NAME 
2220  U$=" - - 

2230  IF  XS=CHRS<32>  THEN  US= - THROTTLE  ON 

2240  IF  XS=“ THEN  US= - THROTTLE  OFF" 
2250  IF  XS= “ 0 "  AND  ALT I METER >0  THEN  US=" 
CLIMB" 

2260  IF  XS= 11  <3 "  AND  ALTIMETER=0  THEN  US=" 
NOSE  UP" 

2270  IF  XS="A"  THEN  US=«NOSE  DOWN" 

2280  IF  XS="Z"  THEN  US=" BANK  LEFT" 

2290  IF  XS="M"  THEN  US=" BANK  RIGHT" 

2300  RETURN 

2310  REM  ************************ 

2320  REM  INITIALIZATION 

2330  POKE  53280,0: POKE  53281 , 0: PRINT" 

fCLR> {PURI " 

2340  J=RMD (VAL (RIGHTS <TIS, 2) ) ) : REM 
RANDOMIZE 

2350  QS="  - - "  :  REM 

21  CHARACTERS  IN  STRING 
2360  UFLAG=l:REM  UNDERCARRIAGE  - 
1  -  DOWN,  0  -  UP 
2370  EFLAG=1 : REM  CLIMB  RATE 
2380  ANG=0: TAKEOV-0: LND=0 
2390  AIRSPEED=0 


321 


Commodore  64 


2400  DIST=.0:REM  DISTANCE  COVERED  ’  RANGE 7 
241.0  ALTIMETERS.® 

242.0  ELEVATE=0:  REM  ANGLE  OF  ELEVATION 
2430  WA=0:REM  WING  ANGLE;  USED  IN 

HORIZON  PRINTOUT 

2440  FUEL=75®: CRASH=0: F2=0 : F 1 =0 : REM 
FOR  DIRECTION  CHANGE /COMPASS  ROUTINE 
2450  CLOCK=0: REM  TIME 
2460  X$s”" 

2470  RETURN 

4.0.00  SID=54272 

4.010  FOR  L  1=0  TO  23 

4.020  POKE  SID  +  L1 , 0 

4030  NEXT  LI 

4.04.0  POKE  SID+24,  15 

405®  POKE  SID+5,15 

406.0  POKE  SID+6,255 

4070  POKE  SID-f-4, 17 

4080  FOR  LI =48  TO  220  STEP  .7 

4.090  POKE  SID+  1 ,  L  1 

4100  NEXT  LI 

4110  FOR  L 1 =28  TO  200 

4120  POKE  SI D+ 1 , L 1 

4130  NEXT  LI 

4140  FOR  LI  =20.0  TO  28  STEP  -1 
4150  POKE  SIB+l,L.l 
4160  NEXT  LI 
4170  POKE  SID+1,0 
4180  RETURN 
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If  you  enjoy  playing  or  programming  BASIC  computer  games,  you're 
ready  for  the  book  that  poses  the  ultimate  challenge: 

REPLICATING  REALITY 


Master  gamesman  Tim  Hartnell  takes  you  into  the  exciting  world  of 
computer  simulation  games  and  teaches  you  how  to; 

•  Model  real-fife  situations  with  computer  programs 

•  Make  your  computer  simulations  as  realistic  as  possible 

*  Create  your  own  exciting  simulation  programs 

CREATING  SIMULATION  GAMES 
ON  YOUR  COMPUTER 

contains  a  dozen  full-scale,  ready- to- run  simulation  programs,  ranging 
from 

•  Buying  and  selling  on  the  STOCK  MARKET,  to 

*  Running  a  multimillon-dollar  automobile  manufacturing  company  in 

DETROIT  CITY  to 

*  Flying  a  small  airplane  in  FUG  HI  SIMULATION 

Featuring  the  BASIC  language  program  listing  for  each  game  and  dear 
instructions  forgetting  the  programs  running  on  your  home  or  per¬ 
sonal  computer. 

Tim  Hartnell  prepares  you  to  create  your  own  simulated  worlds— will 
you  be  able  to  tell  them  from  the  real  thing? 

Complete  BASIC  program  listings  for  the  IBM  PC.  Apple  lie.  and 
Commodore  64 


